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I. INTRODUCTION 


In order to accomplish its mission of winning the land 
battle, the Army must perform three basic functions: 
shooting, moving, and communicating. Therefore, it is 
reasonable to say that any combined arms combat model must 
portray these three functions with a commensurate degree of 
accuracy in order to realistically represent the combat 
process. 

The question of precisely how to model communications 
between the elements, units, and individuals represented in 
a combined arms combat model is a critical one for the model 
designer. Communication must be an integral part of 
Virtually every conceptualization of combat more complex 
than a one-on-one duel. AS a result, communication is one 
of the most significant areas which the combat modeler must 
consider and with which he must deal effectively. 

The assumptions made about the amount of communications 
allowed between elements, the time required for the 
communications to be completed, and the effect of 
communications (or lack thereof) frequently can be _ so 
far-reaching that they completely dominate many other 
effects which the modeler would like to study. They may also 
cause the aodel to be rejected as invalid. For this reason, 
the communications-related assumptions must be carefully 
thought out and implemented if the combat model is to be 
realistic and useful. 

The original efforts in developing the STAR Combat Model 
were directed towards producing a high resolution Monte 
Carlo simulation of mOdern combined arms warfare. It was 
decided to base the terrain model on the work done by 


-Needels for his thesis research in March 1976. He 
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which played both red and blue artillery at the battalion 
level. Provisions were made for upgrading the model to 
portray artillery at the brigade level when the brigade 


level was included 
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The second, by Kramer, developed a deterministic 
Simulation model for dynamic tactical route selection based 
upon the route selection technique used in the DYNTACS 
combat simulation model. Kramer's model was written in 
FORTRAN, and it was planned for eventual incorporation into 
the STAR model. 

The third, by Broussard, developed a dynamic model for 
the tank commanders’ target selection process based on 
eleven pacameters fit by a regression model using responses 
from 128 tank gunners. 

Bein aly, the four ome | bY Haislip,) developed a 
stand-alone communications model which will be discussed in 
a later paragrandh. 

In September of 1979, Caldwell and Meiers developed an 
air-to-ground and ground-to-air combined arms simulation 
designed for inclusion in the STAR model. At this time, STAR 
had been upgraded to include representation of a bluse 
battalion under attack by a red regimental force; however, 
the production version which was used for several studies 
for TRADOC still did not include any of the modules such as 
the field artillery, dynamic rout? selection, dynamic target 
selection, Or communications. 

In his thesis work in March 1979, Haislip developed a 
model for single channel FM communications at the company 
and battalion level. Despite the fact that this code was 
Written with the idea of incorporating it into STAR, there 
were several shortcomings which precluded its inclusion. 
First and most significant, the code was task specific so 
that in order to use it for the wide range of applications 
represented in the STAR model much of the logic and many of 
the variable and attribute names would have had to be 
altered. Second, the communications model only portrayed the 
communications for internal platoon fire coordination and 


field artillery fire direction. It was subsequently decided 
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that, for the near term, STAR would not explicitly model the 
communications below the company level for reasons which 
will be Sutlined in Chapter Vv. In spite of these 
shortcomings, the model written by Haislip did provide 
valuable insights into how to approach the problem of 
user-transparent communications nodules for the higher 
echelons. 

Since the purpose of this thesis was to design and 
implement a communications model for the movement decision 
logic within the framework of the existing STAR Combat 
Model, Haislip's work was used as the basis for the 
communications implementation with modifications and 
extensions in order to make the communications interface as 
robust as possible within the constraints imposed by the 
existing STAR organization. A description of the routines 
and events of the communications model is provided in 
Appendix B. 

Because of the evolutionary nature of the STAR nodel 
there are always several "current" versions of the model in 
some stage of work. For the remainder of this thesis, any 
reference to STAR is a reference to the current production 
version of the model which does not include those modules 
under development. Also, references to the communications 
model refer to that module which was developed as a 
stand-alone model of the communications process using the 
decision logic flow from the production version of STAR. 
Hopefully, this communications module will be enhanced and 
included in one of the STAR baseline production models 


scheduled for completion later this year. 
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Il. DESCRIPTION OF THE STAR MODEL 


The STAR combined arms model is being developed at the 
Naval Postgraduate School to investigate the effectiveness 
of both tactical doctrine and materiel in a mid-intensity 
combined arms conflict. As previously noted, the model uses 
functionally generated continuous terrain and currently 
Simulates a blue battalion under attack by an armor heavy 
red regimental EOECE: The terrain currently in use 
Simulates 2 10 kilometer by 10 kilometer area near Fulda, 
Federal Republic of Germany; however, other terrain boxes 
have been developed including one 40 kilometers by 80 
Kilometers which is planned to be used with simulation of a 
blue brigade-level force under attack by a red 
division-level force. 

The current version of STAR simulates individual weapons 
Systems such as XM1 tanks, TOW's, BMP's, T72 tanks, and 
dragons. These entities detect enemy systems, select and 
acquire targets, load and fire their weapons, and move about 
the simulated battlefield based upon input parameters 
supplied by the model user. The user defines the types of 
weapon systems, the ammunition available, the tactics to be 
used for selecting and engaging targets, and the force ratio 
andi range breakpoints used to determine if a unit wants to 
Withdraw from its current position. A line-of-sight module 
is used to determine whether or not one system can see and, 
therefore, engage an enemy System based upon their 
respective locations on the continuous terrain. 

Air defense, dismounted infantry, and artillery modules 
are under development for inclusion in the model. Also, 
preliminary work has been done on a vehicle evacuation and 


repair module to simulate one of the major logistics 
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huncctions. 

During the initialization process for the STAR model, 
each company is assigned a weight based upon the users' view 
of the importance of the particular company in the overall 
defensive posture of the battalion. This value, COWT, is an 
attribute of the company for a particular phase line and is 
used by the movement decision logic. A company can and 
Frequently does have different values of COWT for different 
phase lines. Also during the initialization, the user 
assigns a value to column 4 of the array TABLE for each 
company and weapon system on every phase line. This value 
represents the restriction status 9f the unit and must bea 
one or a zero. If the value is a one, the company or weapon 
system is restricted from moving from that phase line 
position unless given permission by its superior commander. 
If the value is zero, the company or weapon system can move 
at will. TABLE also stores codes for allof the tactical 
actions allowed for each company and weapon system on each 
phase line. Associated with each of these action codes, the 
TABLE array contains a force ratio and an attrition level 
Which trigger the action to be taken. (Technical Report 
NPS55-79-023 by Parry and Kelleher contains a complete 
description of the parameters stored in array TABLE.) 

The movement logic in STAR is handled by Routine 
DECISION which uses the unit number of the unit requesting 
or being ordered to move, the row number in the TABLE array 
of the weapon system to be moved by the unit, and the 
appropriate column humber in the TABLE array. This 
information is combined with whether or not the weapon 
system is restricted from moving from its present phase line 
position, which is in column 4 of the TABLE array. A flow 
diagram of the logic in Routine DECISION is given in Figure 
1. The arrays used by the movement decision logic are 


described in Appendix A. 
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During Simulation of a battle, blue forces may be 
allowed by the model users! choice of input parameters to 
move out of their current position as a result of heavy 
attrition by enemy forces or because of the range to the 
nearest enemy element. Each shot at a blue element causes 
routine BUS.CHK to check the range to the enemy. If it is 
less than the value supplied by the user in column three of 
the array TABLE for that phase line and that weapon systen 
Or company, then routine DECISION is called to determine if 
the weapon system or cOmpany is restricted or is allowed to 
Gove from its current position. Similarly, routine ACTION 
calls routine DECISION as blue systems are killed by eneny 
fire and force ratio decision points are reached. 

In order to determine when a battalion will give its 
companies permission to move and when it will order its 
Companies to move, each battalion has three attributes. Two 
of these, BNLO and 8NSO, are assigned values by the user. 
The third, BNCUR, is set to zero when a battalion first 
occupies 3 phase line. Whenever a company requests 
permission to move, its weight is added to the BNCUR value. 
If this value exceeds the user defined BNLO value, the 
battalion gives all of its companies permission to move at 
will. If the value of BNCUR exceeds the user input value of 
BNGO, the battalion orders all of its companies to move. As 
long as BNCUR is less than BNLO, restricted companies and 
systems of that battalion stay restricted and are not given 
permission to move. 

When routine DECISION is called, the restriction status 
of the company or weapon system in array TABLE is checked, 
and the BNCUR value is updated if required. Then, if the 
company or system is allowed to move, the appropriate 
movement routine is called to handle the movement process. 

Since in the current version of STAR all of the checking 
of the company status, updating of the BNCUR value, and 
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calling of the movement routines is done in the same 
routine, an assumption is made of perfect and instantaneous 
communications from the company to the battalion and back to 
the company. This and the other assumptions of STAR dealing 
with the communications and decision processes are discussed 


in the next chapter. 
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Lite COMMUNICATE ONS ASSUMPTICNS OF STAR 


The carrent STAR Combat Model makes several far-reaching 
assumptions concerning communications during Simulated 
battles. These assumptions are driven by the fact that 
neither communications nor electronic warfare is modeled 
explicitly in the current production version of STAR. As 
noted in Chapter I, the modeling of these phenomena were 
left for later work by the original studies done on STAR. In 
order of decreasing importance the implicit assumptions made 
in the STAR model concerning communications and electronic 
warfare ace listed and explained below. 

1) Communications of information from one element to 
another takes no time. This assumption means that a 
primary effect of communications on the battle 
process, the time it takes to reach decisions and 
affect the actions or posture of remote units, has 
been ignored. 

2) Communication between units is independent of the 
locations of the units and of the intervening 
terrain. In practice, the intervening terrain often 
precludes any communication between units. 

3) All designated recipients of a communication receive 
exactly the same information at exactly the same 
tine. This means that messages are never lost and 
all are handled with perfect efficiency. 

4) The probability of successful communications between 
two elements is not affected by the combat situation 
nor by the kill condition of either element. This 
means that communications gear is never damaged 
during the battle to such an extent that it cannot 


be repaired by the operator, or replaced. 
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>) All methods of communications are equivalent since 
they all take no time and they all have the same 
probability of success. 

6) All commanders are always instantaneously aware of a 

change in the status of any of their units. 

Of these six assumptions, the one of paramount 
importance is the first because of its great effect on the 
outcome of the battle. This thesis focuses on implementing a 
communications model for the movement decision logic of the 
STAR model and on providing a method of modeling messages so 
that this first assumption can be eliminated in favor of one 
which deals only with the distribution of the time delays 
caused by transmission of messages from one entity to 
another. 

A description of the problems caused by these 


assumptions is presented in the next chapter. 
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iv “DESCREPTION OF THE “PROBLEM 


Because of the intense effort to implement a production 
version of STAR as an effective combined arms combat model, 
the development of the communications aspects of the model 
has not been the primary concern of the model developers. 
The predominant view concerning communications between units 
has been that the oversimplified portrayal would be adequate 
until such time as the model was sufficiently sophisticated 
to allow the communications to play a significant role in 
the exercise of the model. 

The lack of an adequate communications model as outlined 
above together with the assumptions of the STAR model 
regarding communications which are stated in Chapter [III 
have a great effect on the results of the model in certain 
critical situations. For example, since the loss of time in 
transmitting information is ignored, the battalion commander 
is instantly aware when one of his companies is being 
heavily attrited by the enemy and wants to withdraw from a 
particular position, and no time is taken up by the 
decision process which generates the order of the 
communication process which transmits the movement 
authorization to the company. This, in turn, means that 
this particular blue company is, on the average, attrited 
less than it would be if the company had to wait some length 
of time to get permission to move from its current position. 
Thus blue casualties are lower than they would be for a more 
realistic simulation of the decision and communications 
process. 

This thesis work was begun at a time when it was decided 
that a more detailed treatment of communications was 
necessary. It was determined that this was an area of the 
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model whece significant improvements in model realism could 
be made. At the same time, it was apparent early in the 
development of the communications model that major portions 
of the STAR code would have to be completely rewritten to 
implement a realistic communications simulation model. Many 
of the decisions which are based upon communicated 
information are "hard-wired" into the STAR code which means 
Mnat in order to change these decisions, the code itself had 
mombe radically altered to provide for more flexibility. As 
noted previously, this thesis work was begun with the goal 
of implementing a communications model within the STAR model 
which would handle the message flow for the novement 
decision logic. This model was to be sufficiently flexible 
and expandable to handle the communications requirements for 
other functions as they are converted to the explicit 
communications representation. A description Of the 
assumptions of the communications model 1s provided in the 


mext Chapter. 
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Y.. ASSUMPTIONS OF THE COMMUNICATIONS MODULE 


The communications model developed in this thesis makes 
the following assumptions. 

1) A message on the communications net will not be 
interrupted by another message trying to get on the 
net. This means that there is no scheme for handling 
different message precedence levels. 

2) Human error in interpretation of the messages is 
negligible. 

3) Signal strength during transmission of a specific 
message does not vary significantly. 

4) The probability of jamming a given message is 
independent of whether or not a previous message on 
the same net was jammed. 

5) None of the unit commanders are killed during the 
course of the battle. This iS accomplished by 
Setting all the commanders ammo counts to zero and 
by setting each commander's ACVT.TYPE attribute 
equal to one. 

6) Below the company level, communications by messenger 
takes approximately the same time as electrical 
communications and therefore communications at this 
level is assumed and is not modeled. 

Some brief comments on these assumptions are in order 

and they are provided below. 

Until such time as the communications model is 
sufficiently sophisticated to allow for modeling of traffic 
priority, the first assumption provides an adequate model 
£Or a process where all traffic is of the same relative 
importance. 

The second assumption covers a multitude of faults which 
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Sexist “in the real world communication process. However, just 
as it is not feasible to try to model the differences in 
Viewpoint between the red and blue commanders except in 
terms or doctrine, 1t is not feasible to try to model the 
possible ways a message can be misinterpreted since this is 
a function of so many disparate factors. 

The third assumption provides a good approximation to 
reality except during bad weather when atmospheric 
conditions change with great rapidity, and when jamming is 
encountered. This assumption has an explicit proviso, that 
is that the message Lengths must be short relative to the 
time scale for atmospheric or equipment changes. 

The fourth assumption is applicable to this version of 
the communications model but will undoubtedly be superceeded 
by later revisions “which are anticipated to model the 
phenominon of jamming in great detail. In the current 
version the probability of jamming is set by the user by his 
choice of the values for the global variables which are used 
by the SIMSCRIPT random number generator. A description of 
the global variables used in the communications model is 
provided in Appendix C. 

The fifth assumption is made because this entire area of 
battlefield synergism is not being played in the model. [In 
real combat, commanders are killed and units lose or gain 
effectiveness based upon the Capabilities Of the 
Subordinates who assume command. There is no data to support 
any sort of model of this gain/loss of effectiveness, and it 
1s not anticipated that any attempt will be made to 
incorporate this sort of detail in the model since it turns 
primarily on capabilities of individuals such as leadership, 
judgment, and decisiveness which are essentially not 
quantifiable. 

The cationale for the sixth assumption and for not 


moieling the communications below the company level is that 
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these emitters are generally so close together that it is 
alaost always possible to pass traffic between them, and 
jamming them becomes prohibitively expensive in terms of 
level of effort and expenditure of resources. Also, because 
they are relatively close together, critical information can 
be passed by messenger in a time that is roughly equivalent 
to the time required to pass the information by electronic 
methods. This is not true for messages between the higher 
level commanders where the time for a messanger to deliver 
the information would be orders of magnitude larger than the 
time to deliver the information by electronic means. [In 
addition, modeling all these details would consume valuable 
computer resources which can be more profitably used to 
represent other aspects of the combined arms battle. 

Unlike the communications model currently employed by 
the STAR model which assumes no loss of time in transmitting 
information from one unit to another during the course of 
the battle, the one developed in this thesis provides the 
user of the model with almost complete freedom in his choice 
of how to model the distributions of the time delays 
involved in the communications and decision processes. The 
Juidelines for model parameterization are covered in detail 
in Chapter VII. A complete description of the communications 


model is provided in the next chapter. 
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view, DESCRIPTION OF THE COMMUNECATIONS MODULE 


The communications model developed in this thesis is an 
amalgum of ideas and concepts from many sources. The logic 
of the STAR model necessarily makes many decisions which in 
real life are based upon information communicated to the 
commanders by sources outside their immediate area. Most of 
this information is provided to the commander in the form of 
a written or verbal message. While these messages do not 
conform tod any set format, there are certain mininun 
essential elements of information contained in them which 
are determined by the type or intent of the message. For 
example, aS a minimum, a reguest by a company for permission 
to move from a specified position must include a unit 
designator and some type of code to identify this message as 
a request to move. Since different types of messages will 
necessarily have different minigun information contents, it 
was decided that the messages and their text portions should 
be modeled separately. In order to help the reader with 
understanding the logic flow which will be discussed in this 
chapter, the entities and their pointers which are used by 
the communications logic are diagrammed in Pigure 2. Also, 
the arrays and sets used by the communications logic are 
described in Appendices F and G respectively. 

To represent the flow of information within the model, 
messages are generated as temporary entities whenever a 
decision point is reached where information must be passed 
between twos subscribers which are spatially separated or are 
not from the same command level. There is one exception to 
this polrcy: the internal company communications. 
Communications from individuals to their platoon leaders and 


from the platoon leaders to th2 company commanders are 
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assumed t) be 100% reliable and take no time. 22S LS mot 
the case for communications between the company commanders 
or for communications between any of the higher level 
commanders. 

The communications module being implemented uses the 
Same basic decision logic as that diagrammed in Figure 1. 
However, since the primary emphasis of this thesis was to 
model the communnications delays and the effects they have 
on the eventual outcome of the simulation, the DECISION 
routine had ts be completely rewritten to allow the 
representation of these delays. Routine DECISION was 
actually taken apart and broken down into seven mutually 
disjoint new routines. These seven routines utilize the same 
arrays and sets as the original DECISION routine to model 
the decision process. Four of these routines, DEC.CO, 
DEC.BN, DEC.BDE, and DEC.DIV, handle the movement decision 
logic at the various command levels. The fifth routine, 
DECISION, acts as the driver which initiates the movement 
decision process when called by either BUG.CHK or ACTION 
meom the STAR logic. The sixth routine, EXIT, provides an 
exit from the movement decision logic under specified 
conditions. The seventh routine, GEN.MOVE.DECISION. MSG, 
produces the appropriate message which is transferred 
between these routines carrying the information required for 
the decision to-be made. These routines are discussed in 
more detail later in this chapter along with all the 
communications routines and events necessary for the 
transfer of messages between them. The SIMSCRIPT code for 
these modules 1s provided in Appendices H through 0O 
respectively. Instead of changing the information known by 
all the commanders at all levels when a company commander 
decides to request permission to move, the communications 
model stochastically generates and sends a MESSAGE from the 


company commander to the battalion commander containing the 


ull 





request. When this MESSAGE transmission ends, the model 
provides the STAR decision logic with the information 
necessary for a decision by the battalion commander and then 
stochastically models the transmission of the decision by 
generating and sending a MESSAGE from the battalion 
commander to the company commander. If the users choice of 
inputs do2s not allow the battalion commander to give 
permission to move to the company commander, another MESSAGE 
is generated and sent.This new MESSAGE goes to the brigade 
level and when the transmission ends, the decision logic at 
the brigade level either generates the decision and sends a 
MESSAGE back to the battalion or passes a further request 
for permission to move on to the division level. As the 
model stands, the division level cannot send a message 
higher and thus is the ultimate decision authority. The user 
Should be aware that his choices of break point bounds and 
restriction status for the simulated units are critical for 
a realistic simulation. Flow diagrams of the modified 
decision logic used in the communications model are given in 
Figures 3, 4, 5, 6, and 7. In addition, a partial listing of 
the output of the model is provided as Appendix II. This 
listing has been greatly shortened, but serves to illustrate 
the type of output which can be expected from the model 
during execution. A description of the flow of the 
communications model routines and events will be given next 
to familiarize the reader with the details of the model. 


A. COM.MAIN 
The SIMSCRIPT code for routine COM.MAIN is provided in 
Appendix 9. It is the first of the communications model 


routines to be execut2d. It is called from BL.CREATE and it 


in turn calls all the initialization routines for the 
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communications module before listing the attributes of each 
BeMVR.CDR, COMPANY.COMMANDER, BN.COMMANDER, BDE.COMMANDER, 
DIV.COMMANDER, and UNIT. COM.MAIN is the last executable 
routine called by BL.CREATE, and when it terminates, the 
SIMSCRIPT timing routine takes control since the simulation 
has already been started. 


B. BUILDNETS 


The SIMSCRIPT code for routine BUILDNETS is provided in 
Appendix P. It reads in the data on the FMNETsS which are to 
be simulated andon which UNITs belong to each FMNET. It 
then creates the nets and tha SUBSCRIBERS and places the 
SUBSCRIBERS in the CEOI.LIST for their net. It also reads 
any alternate frequencies which are assigned to the FMNET 
and stores them in the array FM.PUSHES. It then returns 
mencEol to COM.MAIN. 


mee CHECKNETS 


The SIMSCRIPT code for routine CHECKNETS is provided in 
Appendix 2. It goes through each FMNET that has been created 
and prints out the information on them. It prints the net 
Number, the net frequency, the number and frequency of any 
alternate frequencies, and the number of SUBSCRIBERS 
testgned t5 the net before returning control to CON.NAIN. 


D. BNETTBL 


The SIMSCRIPT code for routine BNETTBL is provided in 
Appendix R. It cycles through all the FMNETs and creates and 
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prints out two tables. The first, NETTBL, is used during 
execution of the communications routine. It contains the 
identity numbers of the SUBSCRIBERS belonging to the ith 
FMNET in the ith row. The second table has the address 
pointers to the SUBSCRIBERS in the ith FMNET in its ith row. 
Arter printing both tables, BNEITTBL returns control to 
oem. MAIN. 


S&S. ROUTINE COMMGEAR 


The SIMSCRIPT code for routine COMMGEAR is provided in 
Appendix S. It reads in the data on how many UNITS/TANKS 
have comMunications equipment and creates a MYSET for each 
of them. [t then creates the RT.CONFIGs for each TANK and 
reads in the characteristic data for each RT.CONFIG assigned 
to each TANK and files the information as attributes of the 
RT.CONFIG. If the data indicates that the antenna is 
directional or remoted, a messag? is printed and the job 
terminates since there areno provisions in the current 
model for handling directional Or remoted antennas. 
Eventually, these are planned for inclusion, however. The 
routine then cycles through the FMNETsS and sets the first 
message number for each SUBSCRIBER in each net equal to 
nO01, where n is the identity number of the SUBSCRIBER. 
Finally, this routine places the SUBSCRIBERS in the nets and 
returns control to COM. MAIN. 


ibe ROUTINE COMMCHECK 
The SIMSCRIPT code for routine COMMCHECK is provided in 


Appendix [T. It cycles through each TANK in BLUE.ALIVE and 
prints out the communications gear assigned to each TANK. 
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For each RI.CONFIG it prints out the x,y, and z coordinates, 
the type of radio, the radio mode of operation, the antenna 
type, and the location of the antenna which currently must 
be the same as the location of the TANK. If either a 
directional or remoted antenna is detected, a message is 
printed and the program halts. This is done because the 
routines which are planned to handle this have not yet been 
included in the model. Finally, it prints the number of the 
net to which each RT.CONFIG is tuned before returning 
Sentrol to COM.MAIN. 


G. ROUTINE INITIALIZE 


The SIMSCRIPT code for routine INITIALIZE is provided in 
Appendix U. It reads in the values for the parameters used 
by the communications routines for generating random numbers 
and for controling the print out of data. It also reads in 
the lower and upper bounds for the destination codes of 
messages being sent to the company, battalion, brigade, and 
division levels. It also calls routines STAT.DUMP and 
SSTAT.DUMP before it raturns control to COM.MAIN. 


H. ROUTINE STAT. DUMP 


The SIMSCRIPT code for routine STAT.DUMP is provided in 
Appendix Ne it lists the attributes Of each 
COMPANY .COMMANDER, BN.COMMANDER, EDE. COMMANDER, and 
DIV.COMMANDER and is used primarily as an aid to debugging. 
In addition to the initial call from routine INITIALIZE, it 
is called from routine END.XSMN periodically based upon the 
value supplied by the user for global variable 
COM.DATA. DUMP. Complete descriptions of the global variables 
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used in the communications model are provided in Appendix Cc 
while the attributes of the permanent and temporary entities 


ar2 described in Appendices D and E respectively. 


I. ROUTINE SSTAT.DUMP 


The SIMSCRIPT code for routine SSTAT.DUMP is provided in 
Mependix W. It prints out the contents of the BDECORD, 
BNCORD, and COCORD arrays. This is another of th2 print 
routines designed to aid in debugging the code if it should 
fail. The arrays used in the communications model are listed 
and explained in Appendix F. 

Once initialization of the modules has been accomplished 
and the SIMSCRIPT I1I.5 timing routine has taken control of 
the system, the event step sequence determines the order in 
which the routines and events will take place. The following 
description of the routines and events is done as if tracing 
the flow of a specific decision through the system. Whenever 
in the following narrative the phrase "a message is sent" is 
encountered, it should be taken t95 mean "a COMMO.ATTEMPT is 
scheduled." 


J. ROUTINE DECISION 


The SIMSCRIPT code for routine DECISION is provided in 
Appendix #. The flow diagram for the logic of routine 
DECISION is given in Figure 3. DECISION is called by either 
BUG.CHK or ACTION from the STAR logic. Both of these 
routines were significantly altered to allow them to 
interface with the new decision logic routines. Routine 
DECISION checks to see if this call is a company or section 


requesting permission to move by testing the value of the 
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element of array MVARY referred to by the row and column of 
the call. If it is not a company or section, DECISION calls 
the appropriate move routine and schedules a RE.MV.STATE for 
the calling unit in 60 seconds and then returns from routine 
DECISION. If it is a company or section request, the logic 
goes on to test the restriction status of the company or 
section which is located in the TABLE array. If the company 
or section is not restricted, the appropriate movement 
routine is called and a message is created and sent 
informing the battalion of the unit move. If the unit is 
restricted from moving, the value of CREQST is checked to 
see if the unit has previously requested permission to move. 
If a previous request has occurred, a message is printed 
noting that fact and then the program returns from routine 
DECISION. If there has been no previous request for 
permission to move, the logic checks to see if the unit is 
on the same phase line as the rest of the units of the 
battalion. If the unit is farther to the rear than the 
battalion, a message is printed, and the program returns 
from routine DECISION. If the unit 1S on the battalion phase 
line the program checks to see if the unit has been given 
permission to move. If the unit has been given permission to 
move, the appropriate movement routine is called and a 
message is generated and sent informing the battalion of the 
unit move. If the unit does not have permission to move, a 
message is generated and sent to the battalion requesting 
permission to move. After this, the program exits from 
routine DECISION. 


K. ROUTINE GEN.MOVE. DECISION. MSG 


The SIMSCRIPT code for routine GEN.MOVE.DECISION.MSG is 
provided in Appendix N. It is called by all the movenent 
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decision logic routines and it creates the message which is 
sent from one level to another by the flow of the 
communications logic. This routine first creates a message 
oma then sets up an array called TEXT. A pointer to the TEXT 
accay where the message's content is stored is saved as an 
attribute of the MESSAGE. After storing all the relevant 
information either as attributes of the MESSAGE or in the 
op Gi aGlay, the progran returns from routine 
Sen. NOVE.DECISION.MSG. 


Poe av2NT COMMO. ATTEMPT 


The SIMSCRIPT code for event COMMO.ATTEMPT is provided 
in Appendix X. The flow diagram for the logic of event 
COMMO.ATTEMPT is provided in Figure 8. Event COMMO.ATTEMPT 
takes the nessages which are created by the decision process 
and stochastically models their transmission. This event 
first checks both the sending and receiving UNIT/TANK to 
insure that both have radios. If either one does not have a 
radio, lt prints an error message and stops the sinulation. 
It then checks to be sure that both UNITs are on the sane 
fer. If they are not, it prints an error message and stops 
the simulation. If they are, and the net is not busy, it 
sets the net to busy and calls routine TECH.COMMO which 
checks to see if communication batween the two radios is 
technically possible. If the net is busy, it files the 
MESSAGE in the MAILBAG for that SUBSCRIBER and returns fron 
ement COHMO. ATTEMPT. 


M. ROUTINE TECH.COMMO 


The SIMSCRIPT code for routine TECH.COMMO is provided in. 
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Appendix Ye Routine TECH. COMMO determines whether 
communication between two specific radios is technically 
possible. It returns one of four values for the ABILITY of 
the communication. It is either ROGER, meaning good, or 
MARGINAL, or JAMMED, or NEGATIVE meaning there was no answer 
by the distant station. If the ABILITY is JAMMED, event 
CHANGE. FREQ is scheduled and the program returns from event 
COMMO.ATTEMPT. If the ABILITY is NEGATIVE, event NO.CONTACT 
is scheduled and the program returns fron event 
COMMO.ATTEMPT. If the ABILITY is either ROGER or MARGINAL, 
routine EW.ROUTINE is called to determine if the messaqge 
will be jammed during transmission. If the EW.ROUTINE call 
indicates that the transmission is jammed, event CHANGE. FREQ 
is scheduled and the program returns from event 
COMMO.ATTEMPT. If the transmission 1s not jammed, event 
END.XSMN is scheduled and the program returns from event 
COMMO.ATTEMPT. It currently generates the four possible 
results by doing a random draw against the four integers 0, 
1, 2, and 3. An initial procedure has been written to 
generate these values for ABILITY by a detailed algoritha 
based upon the radio characteristics, the terrain, and the 
locations 9£ the two SUBSCRIBERS. This detailed algorithn 
will be enhanced and eventually it will replace the randon 


draw currently in use. 


N. EVENT CHANGE. FREQ 


The SIMSCRIPT code for event CHANGE. FREQ is provided in 
Appendix Z. Event CHANGE.FREQ simulates the delay caused by 
having to change the net frequency as a result of its being 
jammed. It sets the attributes of the net and the calling 
radio to idle and then reschedules the COMMO.ATTEMPT. 
Beiause the scheduling of the CHANGE.FREQevent includes the 
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delay time that would be caused by changing the frequency, 
the COMMO.ATTEMPT is rescheduled "now." Also, because the 
probability of jamming is independent and there is no memory 
of the frequency, the frequency is not actually changed. 


O. ROUTINE EW.ROUTINE 


The SIMSCRIPT code for routine EW.ROUTINE is provided in 
Appendix AA. Routine EW.ROUTINE simulates the possibility of 
a transmission being detected and jammed by enemy action. 
At present, this is a random draw from 0, 1, 2, and 3 with 
equal probabilities. A draft module to model the direction 
finding and jamming activities explicitly has been written 
and it will be enhanced and will eventually replace the 
current uniform random draw. 


P. EVENT NO.CONTACT 


The SIMSCRIPT code for event NO.CONTACT is provided in 
Appendix BB. Event NO.CONTACT simulates the occurance of no 
response by the distant station. It sets the status of the 
net and the calling radio to idle and then calls routine 
SIEZE.NET before filing the current MESSAGE in the MAILBAG 
Seethe Calling radio. 


wee ROUTINE SIEZE.NET 
The SIMSCRIPT code for routine SIEZE.NET is provided in 
Appendix CC. Routine SIEZE.NET does a random draw against 


all the SUBSCRIBERS on a specific FMNET which have MESSAGESs 
Waiting in their MAILBAGs to determine which of them will 
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get the net which has been left idle as a result of the 
occurance sf either a NO.CONTACT or END.XSMN event. It then 
removes that MESSAGE from its MAILBAG and schedules a 
SeanO.ATTEMPT "now." 


Re. EVENT END.XSMN 

The SIMSCRIPT code for event END.XSMN is provided in 
Appendix DD. The flow diagram for the logic of event 
END.XSHN is provided in Figure 9. Event END.XSMN simulates 
th? arrival of the MESSAGE at the distant station. Re 
gathers the message identification data into global 
variables and then destroys the MESSAGE. it then tests the 
value of the the destination code of the message to 
determine which level of the logic should handle the 
MESSAGE. This is possible since every MESSAGE has both a 
type and a destination code and because the text of the 
message where the data for the decision process is stored is 
set up aS a separate variable length record for which only a 
pointer is stored in the actual MESSAGE. This means that 
each type nessage can have a different length text, and the 
contents can be generated separately from the actual fixed 
EOrmat portion of the MESSAGE. The attributes of each 
MESSAGE are passed as arguments through the communications 
process. A diagram of the pointer links used in the 
communications logic is provided in Figure 2. Based upon 
the destination code, one of the message distribution 
routines, CO.MSG, BN.MSG, BDE.MSG, or DIV.MSG is called. [It 
then releases the text where the MESSAGE data was stored and 
sets the status of the calling radio, the receiving radio, 
and the FYNET to idle. It then checks the simulation time 
using the PORTRAN routine MYTIME t9 see if the allocated CPY 


Eabe for the execution of the program iS about to run out. 
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If less than 10 seconds of time remain, a STOP.SIMULATION is 
scheduled "now." Regardless of the time remaining, the time 
Since the last printout of the attributes of the commanders 
is checked and if it is has been approximately (within 10%) 
COM.DATA.DUMP seconds Since the last print, routine 
STAT.DUMP is called. Finally, routine SIEZE.NET is called 
and the program returns from event END. XSMN. 


S.- ROUTINES CO.MSG, BN.MSG, BDE.MSG, and DIV.MSG 


The SIMSCRIPT code for all of these routines is provided 
in Appendix EE. Routines CO.MSG, BN.MSG, BDE.MSG, and 
DIV.MSG all act as distribution activities which test the 
value of the type of the MESSAGE and call the appropriate 
logic routine to handle that MESSAGE. In future versions of 
the model there will be many different types of messages 
corresponding to the different functions to be accomplished 
by the messages such as calling for air support, artillery 
fires, or logistics support. Routines DEC.C€O, DEC.EN, 
DEC.BDE, and DEC.DIV are all called from these .MSG 
routines. 


T. ROUTINE DEC.CO 


The SIMSCRIPT code for routine DEC.CO is provided in 
Appendix I. In addition, a flow diagram of the logic for 
routine DEC.CO is provided in Figure 4. Routine DEC.CO 
handles the movement decision logic at the company level. 
It is called from routine CO.MSG based upon the value of the 
MSS.TYPE attribute of the MESSAGE. It first stores the text 
of the MESSAGE in global variables and then tests for the 
Specific type of the MESSAGE. The MESSAGE typeS are 
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delineated in the PREAMBLE as global "DEFINE TO MEAN" 
statements. Based upon the value of the MSG.TYPE, several 
different actions are taken. If the MESSAGE restricts the 
coupany from moving, the company's permission attribute is 
set to zero, a line noting that the company has been ordered 
not to move iS printed and the program returns. If the 
MESSAGE gives the company permission to move, the company's 
permission attribute is set to one anda line noting that 
the company has been given permission to move is printed 
before further processing of the MESSAGE is attempted. If 
the MESSSAGE orders the company to move, the company's 
permission attribute is set to one, a line noting that the 
company has been ordered to move is printed, and then 
movement of each TANK in the company is initiated. Routine 
AIR.COMMO and routine C0O.GO are called for each TANK and a 
RE.MV.STATE is scheduled for the company in 60 seconds. At 
this point, the value of ORDER is set to two and routine 
Bart is called prior to the return from the DEC.CO routine. 
If the message falls past the above described procedures 
which provide returns, it then causes the location of the 
company to be determined. Then it checks to see if the 
company has been given permission to move. If it has, ORDER 
is set to one. If not, ORDER is not reset from the value it 
has on entry to this section of code. Then routine EXIT is 


called and the program returns. 


GU. ROUTINE DEC. BN 


The SIMSCRIPT code for routine DEC.BN is provided in 
Appendix J. A flow diagram of the logic for routine DEC.BN 
is provided in Figure 5. This routine handles the movement 
decision logic at the battalion level. It is called fronm 
routine BN.MSG based upon the value of the MSG.TYPE 
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attribute of the MESSAGE being processed. It stores the 
text of the MESSAGE in global variables and then tests for 
the specific type of the MESSAGE. If the MESSAGE is a 
request t2 move from a company which has not previously 
requested permission to move, the value of COWT is added to 
BNCUR and the request count of the company is set to one 
before any furthur processing is attempted. It then checks 
to see if the MESSAGE is a notification of a company or 
section move. If it is a company movement notification, a 
line noting that fact is printed andthen a MESSAGE is 
generated and sent to inform the brigade that a company has 
moved. If it is a section movement notification, a line 
noting that fact is printed and the program returns. If the 
MESSAGE is. an order to the battalion to move, the 
battalion's permission attribute is set to one and the BNGO 
value is added toe the BNCUR value prior to further 
processing. If the MESSAGE is pernission for the battalion 
to move, the battalion's permission attribute is set to one 
and the BNCUR value is set equal to the BNLO threshold. If 
the MESSAGE orders the battalion not to move, the 
battalion's permission attribute is set to zero and the 
program returns without any further processing. When a 
MESSAGE reaches this point, the originator and addressee are 
interchanged to facilitate subsequent responses. At this 
point, the permission status of thea battalion is checked. If 
it isa one, the battalion has permission to move and 
subsequent tests are done to see if the BNCUR value has 
exceeded the BNLO or the BNGO thresholds. First, the BNGO 
bound is checked and if it has been exceeded, a MESSAGE is 
generated and sent to each company in the battalion crdering 
the companies to move. Also, a line is printed stating that 
the companies have been ordered to move anda MESSAGE is 
generated and sent informing the brigade that the companies 
have all been ordered to move. If the BNLO threshold has 
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been exceeded, each company is sent a MESSAGE which gives it 
permission to move anda line is printed noting that fact. 
Also, a MESSAGE is sent to the brigade with the information 
that all the companies have been given permission to move. 
If the BNCUR value doesn't exceed BNLO, the company is sent 
a MESSAGE ordering it not to move and aline is printed 
Meting this action. If the battalion is restricted from 
moving and the BNCUR value exceeds the BNLO bound, the 
battalion sends a MESSAGE to the brigade requesting 
permission to move. Finally, if the battalion is restricted 
and the BNCUR value does not exceed the BNLO bound, the 
battalion sends a MESSAGE to the originating company 
ordering it not to move. Then the program returns fron 
routine DEC.BN. 


VY. ROUTINE DEC. BDE 


PicmomockRiPT code for routin2 DEC.BDE 1s provided in 
mependi< K. A flow diagram of the logic for routine DEC.BDE 
is provided in Figure 6. This routine handles the movement 
Meeision logic at the brigade level. It is called from 
routine BDE.MSG based upon the value of the MSG.TYPE of the 
MESSAGE being processed. The logic of this routine is 
exactly symmetric to the logic in routine DEC.BN with 
battalion, brigade, and division substituted for company, 
battalion, and brigade respectively. The attributes used 
must be those for the brigade vice those for the battalion. 


Mm ROUTINE DEC.DIV 


The SIMSCRIPT code for routine DEC.DIV is provided in 
Appendix L. A flow diagram for the logic of routine DEC.DIV 
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1S provided in Figure 7. This routine handles the movement 
decision logic at the division level. It is called from 
routine DIV.MSG based upon the value of the MSG.TYPE of the 
MESSAGE being processed. The logic of this routine is the 
same as that at the battalion and brigade level except that 
it is somewhat truncated since no messages are sent toa 
higher command. The attributes used must be those for the 
division level and brigade and division must be substituted 


for battalion and brigade. 


X. EVENT DUMP.MAILBAG 


The SIMSCRIPT code for event DUMP.MAILBAG is provided in 
Appendix FF. Event DUMP.MAILBAG simulates the event of going 
through all the MAIL.BAGS of all the SUBSCRIBERS and 
checking to see if the time of the simulation has exceeded 
the LST.SEND.TIME for any of the MESSAGES in any of the 
MAILBAGs. Each MESSAGE which is too old is removed from its 
MAILBAG and routine ABORT.MSG is called for it. Event 
DUMP.MAILBAG then reschedules itself in 600 seconds. 


mee ROUTINE ABORT.MSG 


The SIMSCRIPT code for routine ABORT.MSG is provided in 
Appendix GG. Routine ABORT.MSG simulates the action of 
sending a MESSAGE by another means if it gets tobe a 
certain age rather than to continue to wait for the 
transmission. Currently, it simply destroys the MESSAGE, 
but, it is planned to upgrade this routine so that it will 
Simulate the transmission by courier or some other means 


explicitly. 
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Ze EVENT MSG.GEN 


fhe SIMSCRIPT code for event MSG.GEN is provided in 
Appendix HH. Event MSS.GEN simulates the background noise 
messages which monopolize the communications nets and with 
which the movement decision messages must compete for time 
on the nets. It generates messages at random on all the 
Simulated nets. It first checks to insure there are at least 
two SUBSCRIBERS on the net. Then it selects at random one 
of these SUBSCRIBERS to be the originator of the MESSAGE and 
another of them to be the destination of the MESSAGE. [It 
then creates the MESSAGE, sets its attributes, increments 
the NXT.M5S.NO for the originating station, and schedules 
the COMMO.ATTEMPT to send the MESSAGE. It then selects at 
random the next FMNET on which a "noise" MESSAGE will be 
sent and reschedules itself to generate the MESSAGE on that 


net. 
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VII. COMMUNICATIONS MODULE PARAMETERIZATION 


There are several features of the communications 
parameterization process which warrant detailed examination 
and they are covered in the paragraphs below. 

The communications between any two receivers in the same 
net depends on several variables. One of these variables is 
the ability of the radios to send a signal of sufficient 
strength so that it is greater than the squelch threshhold 
of the distant receiver. This is a function of radio 
line-of-sight, polarity of the antennas, power output of the 
radios, and Many other factors. In the present 
Lmplementation of communications, this capability is modeled 
as a uniform random draw against an integer variable between 
O and 3. An ability of O means the communication is 
feasible. An ability of 1 means the communication is 
marginal and requires two complete transmissions to get the 
message through. The effect of this is to tie up the net for 
twice as long as if the ability had been 0. An ability of 2 
means the distant station does not answer. An ability of 3 
means that successful jamming was encountered and a 
frequency change is scheduled prior to attempting to send 
the message again. Once the ability is determined by routins 
TECH.COMMD, there is another factor which must be considered 
when the message is actually being transmitted, the ability 
of the enemy to selectively detect and jam the 
communications. In the current version of the 
communications model, this ability is modeled as a uniform 
distribution with a 1/4 probability of jamming the 
transmission and a 3/4 probability of no jamming. In the 
final version of the communications model the distribution 


of the jamming will be a user input which can be any 
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Suitably defined distribution function. In addition, it is 
anticipated that a module will be used to calculate the 
transmission loss using the STAR LOS (line of sight) 
routine, the power and transmission characteristics of the 
radios, and the data on the antennas. This transmission loss 
Bat be translated into a0, 1, 2, or 3 to give a clear, a 
partial, a blocked or a jammed transmission respectively. 

The ABORT.MSG routine is currently used to drop old 
messages from the lists of those waiting to be sent. In 
subsequent revisions of this logic, it is anticipated that 
an alternate method of delivery for these messages will be 
developed, and they will be sent by this alternate means if 
they get to be a certain age. Currently, they are simply 
destroyed if they reach the designated age without being 
transmitted. The age at which the destruction is invoked is 
a user imput. 

The user has two lmportant parameters at his disposal to 
assist him in debugging any problems in the communications 
code or the input data. The first of these, COM.PRINT, 
determines which of the builtin messages are printed out by 
the program during execution. There are several levels for 
this parameter. It is tested for being greater than 10, 15, 
20, and 25 at various points in the logic. The larger the 
value of this parameter used, the more detailed will be the 
printout of data during the execution. The second parameter, 
COM.DATA.DUMP, determines the amount of simulated time which 
is allowed to pass before a dump of the attributes of the 
company,battalion, brigade, and division commanders is 
executed. This attribute dump enables the user to check to 
be sure that the correct weights are being used for the 
units and that the request and permission attributes of the 
commanders are being properly set by the program. Both of 
these parameters are read in from cards at the beginning of 
the STAR BIG.MAIN routine. 
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VIII. COMMUNICATIONS MODULE INPUT REQUIREMENTS 


The input requirements for the communications module 


fall into several categories based upon which module reads 


them in and uses them. The folowing descriptions are given 


in the same order as they occur when executing the model and 


a. > 


broken down into sections by routine. All read 


statements use the free form read with at least one blank 


separating variables. 


A. 


BIG. MAIN 


Read COM.PRINT 

COM. PRINT } 
This integer, variable determines the level of detail 
which 1s rinted out during execution of the model. 
When» set to zero, all of the print statements are 
turned off. The major break points in the rintout 
decision logic are set at 10 FRO pe OIG sags Any 
COM.PRINT value larger than these ‘levéls causes al 
thos? levels below it to be turned on. 


Read COM. DATA. DUMP 

COM.DATA. DUMP. 2 
This real variable determines how often the values of 
the attributes of the unit commanders are printed out. 
For example, if read in as 600.0 gE eae cet 
600 Beccues of simulation time the attributes will be 
printed. 


BUILDNETS 


Read NONETS,NORELAY 
NONETS | | a 
ns ees variable specifies the total number of FM 
nets which are to be Simulated. 
NORELAY | oo: 
This integer variable specifies the total number of 
relays to be simulated. 


Read NFMN, NRSUB, NALTFR 
NFMN 


This integer _variable specifies the number designator 
of the ith radio net. 
NRSUB , oe 
This integer variable specifies the number of alternate 
frequenciés assigned to the ith radio net. 
NALTP 
This integer variable specifies the number of alternate 
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freqiencies assigned to the ith radio net. 


Read NICK and NPRI 
NICK. . 
This integer variable is, a check to insure that the 
correct frequency is eee to each net. It must be 
aoe ° same as NFMN from B. abov2 to avoid an error. 
This integer variable is the primary frequency assigned 
to the ity net F y q 4 


Read TKHOLD 

TKHOLD . 
This integer variable is the number designator of the 
UNIT/IANK which belongs to the SUBSCRIBER created in 
this loop. This SUBSCRIBER will be a node in the net 
designated by NTCK and NFMN. All the SUBSCRIBER number 
designators are read in and the SUBSCRIBERS filed in 
the net before going on to read statement E. 


Read NETNO 

NETNO 
This integer variable must equal NFMN to avoid an 
SrLor. 


Read TKALT 

TKALT | | 
This integer varlable has the alternate frequencies of 
net NFMN read into it one at atime. All these 
alternate frequencies are read and stored in the ragged 


abscay FUSPUSHES ina loop prior to going to the next 
read statement B. 


COMMGEAR 


Read NRADIO.TANKS 

NRADIO. TANKS Fn : 
This integer variable specifies the number of tanks in 
the simulation which will have radio equipment. 


Read TKNO, NORAD 
TKNO 


This integer variable specifies the number designator 
of the TANK/UNIT which will have communications 


equipment. 
NORAD P 


This integer variable Sree the number of sets of 
radio equipment (RT.CONFIG's) the TANK/UNIT will have. 


Read PEEP RcAcet ce ee and MODE.OPERATION (RT.CONFIG) 

RAD. TYPE (RT.CONFIG) | “os 
This integer attribute of RT.CONFIG specifies the type 
of radio in use. At present these are dummy types and 
have no real significance. 

MODE .OPERATION (RT. CONFIG) fn 
This integer attribute of RT. CONFIG specifies the mode 
of operation of the radio. At present these are dummy 
modes and have no real significance. 


Read Be nee nce 
ANT.TYPE (RT.CONFIG) | a, 
This integer attribute of RT. CONFIG specifies the type 
of antenna pend used for this radio. set. [f. this 
number is less han zero, the antenna is directional, 
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and since there are no provisions. for this type in the 
rest of the program at this time, this causes. the 
peedcan tO’ prin a message concerning directional 
antennas and stop. 


E. Read REM.ANT(RT.CONFIG) 
REM.ANT(RT.CONFIG) 
This integer attribute of RT.CONFIG specifies whether 
Or not, the antenna is remoted from the radio. If the 
value 1s not zero, the antenna is remoted, and since 
there 1s no provision for this inthe rest of the 
program, it causes the program to print a message 
concerning remoted antennas and stop. 


INITIALIZE 


A. Read PAROO, PARO1, ... PARXx 
PARXX 


These are integer parameters used for generating random 
humbers using the SIMSCRIPT random number calls. The 
Bees Be xx Should not exceed 49, and each should be 
ifferent. 


B. Read PAR50, PARS1, ... PARYyy 


PAR 
thase are real parameters which are used for random 
humber generation. The yy,value should be larger than 
9, and each yy must be unique. 


ee nead CO.LO.BD and CO.UP.BD 

CO.LO.BD. 
This integer variable is the. lower bound of the 
eeu oo code for messages being sent to the company 

evel. 

CO.UP.BD. 
This. integer variable is the upper bound of the 
destination code for messages being sent to the company 


level. 
ieeread BN.LO.BD and BN.UP.BD 
BN.LO.BD. : 
This integer variable is the lower bound of the 
destination code for messages being sent to the 
battalion level. 
BN.UP.BD. 
This. integer variable is the upper bound of the 
destination code for messages eing sent to the 
battalion level. 
E. Read BDE.LO.BD and BDE.UP.BD 
BDE.LO. BD 
This integer variable is the, lower bound of the 
pea oe code for messages being sent to the brigade 
evel. 
BDE.UP.BD 


This integer variable is the, upper bound of, the 
eee oF code for messages being sent to the brigade 
evel. 


F. Read DIV.LO.BD and DIV.UP.BD 
DIV.LO.BD This integer variable is the lower bound of the 


destination code for messages being sent to the 
division level. 
DIV.UP.BD 
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This integer variable is the upper bound of th 


2 
destination code for messages eing sent to the 
division level. 


58 





IX. FUTURE MODEL ENHANCEMENETS 


The model of communications described in this document 
represents a good foundation for developing those additional 
communications-related modules required to enhance the 
realism of the STAR Model. The structure of this model is 
sufficiently flexible to handle most of the communications 
requirements envisioned for inclusion in STAR. 

Obviously, there is still much to be done. A few of the 
more important areas for future work are identified in this 
Chapter. 

Enhancement of the red interception and jamming 
capability module initially developed by Cpt. Haislip is 
high on the list of significant actions which will havea 
marked effect on the realism of the current model since it 
incorporates a call to a jamming rcoutine for which the user 
supplies parameters. 

In addition to the red electronic warfare capabilities, 
the blue force EW assets and doctrine must be evaluated and 
modeled td provide a balanced picture of the impact of EW on 
the model. 

The play of relays for the FM nets, radio wire 
integration, radio teletype HF nets, and directional 
antennas should be considered for inclusion in the model. It 
may be that some of these do not provide sufficient gains in 
realism to justify their being included, but they should be 
studied. 

Since the STAR model is headed for the goal of modeling 
a blue brigade under attack by a red division, the 
multichannel radio nets within the brigade boundary and 
those going back to the corps level need to be studied and 


considered for inclusion in the model. These nets represent 
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a large proportion of the communications assets in the 
brigade area and should be included in the model in some 
Manner. Additionally, as more and more of the logistics and 
support functions are included in the model, the need to 
model communications to entities other than the unit 
commanders will increase. This means modeling at least part 
of the communications network down to the individual 
instrument or line where these support people are located. 
Finally, the whole area of Command, Control, 
Communications, and Intelligence needs to be integrated in 
some way with the tactical decision logic in order to take 
advantage of the information which can be gained from the 


intelligence network. 
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APPENDIX A 
STAR ROUTINES, EVENTS, AND ARRAYS 


The following routines, events, and arrays are key 


elements in the existing STAR movement decision logic. 


ROUTINES 


Action 
This routine calls the movement decision routine and 
takes action based on the value of the order returned 
to initiate movement of units in conjunction with the 
Leav2 logic. 


Bn. go 
This routine initiates movement of a blue battalion 
froselts current position. 


Bug .chk 
This routine checks to see if a unit should move as a 
result of being too close to an enemy unit and calls 
the movement decision routine if required. 


Co. go e e e e e 
This routine initiates movement of a blue company from 
meS GUET Ont pOSition. 


Decision . 

This routine is called by routine ACTION or routine 
BUG.CHK. It updates the values of CREQST, _BREQST 
BNCUR, and BDECUR and checks the attributes of a unl 
and the values stored in the arrays TABLE, BNCORD, and 
COCORD to determine if the unit is allowed to perform a 
desired movement. It causes units to move if the BNCUR 
or BDECUR values exceed the LO or GO bounds for the 
battalion or the brigade. 


EVENTS 


Pnaz.cnk 
This event determines whether the current phase line 1s 
Silt occupied.’ If it is still occupie the event 
reschedules itself. If it isn't occupied, the event 
removes _ the battalion commander from t IGADE (set) 
and calls routine COORD.SET. 


Re.nv.state 


his 2vent checks to see if units have arrived at their 
new locations. 
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Table 


BNCOL 


SOcCOr 


ARRAYS 


A diagram of ea aoe ao of this array is provided 
in Figure 10. This three dimensional array has a plane 
for each blue maneuver unit and seven rows for each 
plane. The first six rows correspond to monitored 
weapons systems for the unit and the seventh 
corresponds to th2 unit as a whole. Each weapon systen 
row has 4 plus 3*NPRI columns where NPRI is the number 
of attrition level actions planned for that systen. 
Column 1 contains the system code in the first rows 
and the boundary range in the seventh row. If no enen 

Diecs ace Within this range,sthe unit will not move of 

1lts position unless ordered t> do so. Column 2 contains 
the weapon code in the first six rows and the Sele 
Within which all enemy units are used for _computing the 
force ratio in the seventh row. Column 3 contains the 
closing range within which an. enemy firing at a _systen 
causes it to request permission to move off its 
position. Column contains the code for whether a 
System or unit is restricted from moving.or is free to 
move at will. The remaining columns are in groups of 3 
meee tne Eirst being angattrition level, the ‘second 
being the force ratio, and, the third being the code for 
the “action to be taken if that attrition level and 
force ratio are exceeded. 


d 
A diagram of the dXrganization of this array is provided 
in Figure 11. This three dimensional array has a plane 
for each blue battalion, a_row for each phase line, and 
five columns. The first column contains BMSN, the code 
for whether or not the battalion has permission to move 
OLE this coordination line. The second colugn contains 
BNCUR, the sum of the weights of the companies which 
have requested permission to move off their current 
coordination iines. The third column contains BNWT, the 
tactical weight of the battalion on this coordination 
line. The fourth column contains BNLO, a _lower bound 
which if exceeded by BNCUR causes the battalion to give 
all the companies permission to move. The fifth column 
contains BNGO, a_lower bound which if exceeded by BNCUR 
Causes the Battalion to order all companies to move. 


d 

A diagram of this array is provided in Figure 12. This 
three dimensional array has a plane for, each blue 
company unit, a row for each coordination line, and two 
Coluans, The first colwam contains CMSN, the code for 
whether or not the company has permission to nove off 
Meomeecircrent coordination .line. The second column 
Conmtsans COWL, the tactical weight of the company on 
this coordination line. 
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TABLE DIAGRAM 


orce Ratio 


g, 


, AGEErIELOn 


ACE LOM 





Oorce Ratio 


Je mgalieatone! 


Restriction Status 
Range 
Weapon Type 
system Type 
A plane for each blue maneuver unit 


A column in each plane for each of the above weapon system attributes 
A row in each plane for each of up to seven weapon systems 


FIGURE 10 
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BNCORD DIAGRAM 


5B NGO 
BNLO 
BNWT 
BNCUR 


BMSN 
A plane for each battalion 
A row in each plane for each phase line 


A columm in each plane for each of the five attributes 


FEGORE, 11 
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COCORD DIAGRAM 





FIGURE 12 
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APPENDIX B 
COMMUNICATIONS ROUTINES AND EVENTS 


The communications model uses the following routines and 
events to model the transmission of messages between the 
decision levels. The decision process is based upon the 
information contained in the messages and their texts. 


ROUTINES 


a ae een ke esg) Area 
This routine destroys a message if it gets too old. 


Bde.ms 
This routine 1S called by event END. XSMN whenver a 
brigade~level message is encountered. This routine in 
turn calls the SE ccs logic routine to handle the 
message based on the message fype. 


Bn. ms 
this routine is called by event END.XSMN whenever a 
battalion-level message is encountered. This routine in 
turn calls the ay Op Lae logic routine to handle the 
message based on the message type. 


Bnettbl 
This, routine is called by routine COM.MAIN. during 
ett Li Zation of the progran. et builds . two 


two-dimensional tables or ragqed arrays. The first, 
NETTBL, stores the subscripts of the subscribers of the 
Zen radio net ia row i of the array. The. second, 
RPOINT, stores in its Ith row the address pointers of 
the subscribers in the Ith radio net. 


Buildnets ; 
This, routine is called by routine COM.MAIN during 
initialization of the program. It reads in the number 
of radio nets, the number of relays, the subscribers in 
each net, and he alternate frequencies for each net. 
It creates the FMNETS and files them.in the ETHER and 
also creates the SUBSCRIBER's and files them in the 
CEOI.LIST of the FMNET to which they belong. 


Checknets 
This, routine is called by routine COM.MAIN durin 
Initialization of the program. It cycles through eac 
FMNET and prints the number of the net, the primary 
frequency of the net the number of alternate 
frequencies, the alternate SiGe cco! and the number 
of SUBSCRIBER's in the net. his 1S primarily a data 
debugging facility. 


a 
h 


Co.msg 
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Bois coutine is called. by event END.XSMW whenieamer a 
company~level message is encountered. This routine in 
tin cakis *he “ler Beets logic routine to handle the 
message based on the message fype. 


Com.main . 
Thas poutine calls.the routines which initialize the 
communications OLDwLon of the program. It then 
schedules the DUMP.MAILBAG and MSG.GE oe events 
irre o@ens CORTEOL to the SEMSCRIP® Ir.5 sthedulem 
Commcheck 
Mats routine is called by, rowzine COM.MNAIN during 
mactaalization of the Beco © cyclesethrough every 
TAWK in. BLUE.ALIVE an prints out the communications 


gear which has been assigned to each TANK, the location 
of each TANK, the mode of operation of each radio, and 
the ec Of antenna used by each radio. This is 
PEiwariny a data debugging facility. 


Commgear | ; 
Tees .Foutine 1s called by routine COM.MSAITN durin 
initialazation of the progrags. It reads the number o 
each TANK which 1S to have communications capability 
and the number of radios each TANK is to have. It then 
CGEcates a MYSET £Eor that TAWK Which is a set containing 

oemeeesS to ath the RT.COMFIG's at owned by that 
ANK. It creates the required number of RT.CONFIG's for 
tmat TER and files the in RAD.LIST of MYSET. It reads 
the cadio type, the mode of oo of the radio, and 
tee  antenana type used by the radio and sets these 
apeceromees Of each O£ the .RWACOMEPIG's created. Bfter 
Cifeating ate of the radios, the routine sets the next 
message number of each tank to_n001, where n is the 
number of the TANK, It then places the equipment in 
the appropriate nast, and prints out a matrix of the 
TANK poe ape and the address pointers for the TANK, 
CaS Shige the .RY.COWFIG, and the ROBER for each 
fee emecaCn TFA net its the ETHER. This Listing is 
primarily a debugging facility. 


Dec.bde 


io" 
D 
“ 
cS 
Ug 
W— 
\@) 


This routine handles the movement decision at the 
Pemgade fewel. Tt checks towsee If a battalion should 
move or be given permission to move and if so, it 
GaulsicSee Eh appropriate, message to be generated and 
SGheayles the COMMO.ATPEWPY t> the Dattalion. 
Dec.bn . j an . 

This routine handles the movement decision at zthe 
battalion level. It causes messages to be generated 


and schedules COMMO.ATTEMPT's to Doth the company level 
and the brigade level. 


Dec.co 
This routine initiates movement of the company from its 
current esitiom” by \callingtwe CO.G@® raéutine it 
authorized by the text of the message. 


Dec.div 
This routine handles the movement decision logic at the 
division level. It causes messages to _ be generated and 
schedules COMMO.ATTEMPT's to the brigade lével. 


Dec is Hon(rom, col, t) 


This routine does the preliminary checks to, determine 
if a company needs permission to move andif so, 1t 
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causeS a message to be enerated and schedules a 
COMMJ.ATTEMPT to the battalion. If permission is not 
required, it causes the unit to begin movement. 


Div.ms 
TRis routine 1s called by the END. XSMN event whenever a 
division-level message is encountered. This routine 
then calls the See ee Logee Lelutine to fandle the 
message based on the message type. 


Ew.routin2 
This routine is called by the COMMO.ATTEMPT event 
whenever a message 1s being placed on the net to 
determine if the mo See dc will be jammed, If the message 
is jammed, event CHANGE.FREQ is Scheduled and executéd 
prior to allowing another attempt to send the message. 


Beet (Or @cl,t,.crit,p,z.time, flag) 
This routine is used .as’an escape from the decision 
process if permission is not required for a company to 
move from its current position. 


Gen.move.decision.msg (pharow,order,t,crit,p.z.time) yielding 


msg ; 
This routine produces the movement request and order 
messages, assigns values to the message text variables, 
eee SSeS a pointer to the message back to the calling 
routine. 


Initialize 
Mats Coutine is called by routine COM.MAIN d@uring the 
initialization of the communications portion of the 
ae Tam. This routine reads the arameters for the 
PocciDaMeltons wsed in scheduling he communications 
Sa orale Pt. Sakbse Calis routines SSTAT.DUMP and 
a i e 


sreze.net (callnet). 
aco termination of a message on any of the FMNET's, 
this routine checks that FMNET to see if there are any 
messages which have been saved and need to be 
transmitted over it. If so 1t selects one at random 
and schedules the COMMO.ATTEMPT for that message. 


estat. dugp. ; 
Thos CLOMtine"as called ™ by "routine INITIALIZE during the 
tetas zatton Of the program.’ This rotittine prints out 
treswertWes GE th]= attributes of the brigade, battalion, 
and company commanders which are used for fovement 
coordination. 


Stat.dump 
Mies L2Utine 1s called by routine INITIALIZE during the 
Pitt faragarci.On Of the program and by routine SNAP.R if 
the program should ail. This routine lists the 
attribmtes of each company commander, battalion 
commander, brigade commander, and division commander. 


Tech.commo(callrt,recrt) yielding BAT oy 
Mts routine is used to determine how. good 
communication is between the origin and destination 
Stations attempting to pass and receive each message. A 
message can be one of four types: _ 1) normal 
trans@ission, 2) Marginal transmission (It takes twice 
as long aS a normal transmission.), 3) no he RORSe (The 
distan station does not answer.), and ) jammed 
transmission (Th2 sender experiences jamming as soon as 
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he enters pice et and immediatel schedules a 
CHANGE. FREQ as a result.). z 


gee cua (rt contig) yielding xt, yt, and zt 


This routine termines the x, y, _and.z coordinate 
locations of remoted antennas. . It. is called by 
routine COMMGEAR during the initialization phase of thé 
program. 

EVENTS 


Change. freq (callrt,callnet, msg) 
This event is called when the attempted transmission is 
jammed. It "changes" the ote eee frequency of the 
nete tn fact, the aoe) isn't changed since there 
1s no memory propert or the jamming routine and each 
test to see 1f a MESSAGE is jammed 1S an independent 
trial. The ee Le could be Geedies by a quite simple 
Seaton at but since this isn' required, another 
COMMO.ATTEMPT is . scheduled after a suitable wait 
representing the time required to change the frequency. 


Commo.attempt (orig, msg) oe 
This event simulates _ the process of acquiring 
communications with a_ distant Station. It checks to 
insure that both UNIT's/TANK's have radios, that they 
are both on the same net that communication is 
technically feasible, that the net is not BS Ys _and 
enat the distant station responds to the call. It files 
the MESSAGE in a MAILBAG if it can't be transmitted and 
schedules another COMMO.ATTEMPT at a later time. [It 
also sets the busy-state of the FMNET to busy. 


Dump.mailbag 
This event checks every station. in. every net for 
messages walting .to be transmitted which have a 
LST.SEND.TIME attribute less than Simulation time. When 
it finds a MESSAGE which satisfies this condition, it 
removes the MESSAGE trom the MAILBAG of those waiting 
Ro eneoe ont Sszon and calls ABORT.MSG which destroys the 


End.xsmn(callrt,recrt,callnet,msg) 

This event is scheduled when the COMMO.ATTEMPT for each 
MESSASE occurs. It is the current,.simulated time plus 
the length of the MESSAGE. When this event occurs, the 
MESSASE' content is examined and based. upon _ the 
destination code, one of the DEC. routines is called to 
handle the decision rocess. This event also sets the 
busy-~state of the FMNET to idle. 


Msg.gen (fmnet) ; 
This event generates “background noise" messages on the 
nets to simulate the other traffic with which the 
pecker’ decision messages have to compete for time on 
e net. 


oe ae = ecard Neues 7) ' 

This event Simulates a lack of eee by the distant 

station by setting the busy-state of the net to idle so 
that other messages can be passed. It also files the 
MESSAGE in a MAILBAG for future transmission. 
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AP Peo Ex  C 
COMMUNICATIONS GLOBAL VARIABLES 


INTEGER VARIABLES 


maar. Store 
This is a temporary storage location for the address to 
which a MESSAGE will be Sent. .It is used to ass the 
address to the Bessa die generation routine rather than 
increase the number o parameters explicitly passed to 
the routine. 
Adrsee | | | | 
This 1S a temporary location used in the decision logic 
to store the addressee of an incoming MESSAGE. It is 
loaded by the END.XSMN event jus Prsor to the 
destruction of the MESSAGE. 


Bbde 
This variable is_one that was. added to those used in 
the basic STAR model. It contains the value read in for 
the number of blue brigades t > be played. 


Bde.lo. bd 
This is _an input Pee ae set ee the user as_ the lower 
bound of the DEST.CODE of a MESSAGE that will be sent 
to the brigade. 


Bde.up. bd 
Phis LS an input parameter set oe the user as the upper 
bound of the DEST.CODE of a MESSAGE which will be Sent 


to the brigade. 


Emme LO. bd . 
Same as BDE.LO.BD but for the battalion level. 


Bn.up.bd , 
Same as BDE.UP.BD but for the battalion level. 


So. LO.Dd 
Same as BDE.LO.BD but for the company level. 


Co.up.bd 
Same as BDE.UP.BD but for th2 company level. 


Com.print 

Prhis input parameter determines what information 1s 
Boar oe uring an execution of the model. The larger 
OM.PRINT 1s, the more detailed the printout becomes. 
When set to zero, the. execution printout 1s minimized. 
Current break points for increasing the printed output 
ace set at 10,15,20, and 25. Any value larger than any 
of these will ‘cause that level of print to be 
activated. 


Dest 
~” This is a temporary location used to store and test the: 
destination level of a MESSAGE. The value is set in 
event END.XSMN just prior SO Ggestructizon of “the 
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MESSASE. Subsequent to the MESSAGE's destruction, DE 
1s tested to determine which command level must ta 
eecion on the MESSAGE. 


Div.lo.bd 


Div.u 


Dvn 


Flag 


Msg 


Msgno 


Orig 


Pac XxX 


Text. 


Type 


Chie. t 


Same as BDE.LO.BD but for the division level. 
. bd 
Sitae aS BDE.UP.BD but for the division level. 


This variable was added. to those in use af the STAR 
model, The number of divisions to be simulated is read 
into 1t during initialization of the model. 


fais 1s a temporary storage location used by the print 
Beternes., Lt contains an integer value .which unigquel 

identifies the exit which was taken from the mnovémen 

Geems2on Logic. It is used priagarily as an»aid» to 
debugging. 


This is the core location of the current ee 


: J ne. AGE. It is 
@ pointer which uniquely identifies the ME Gi 


. 
A 


This is a temporary storage location for the number 
which is used to distinguish one message between two 
ties from another. This variable is .set b the 
ot event just prior Hema eStTEWUCEION oO the 
GE. 


This is a rower eee y storage locaticn for the pointer to 
the pee gene ag UNGiT of a MESSAGE. It is set in routine 


ives JUSt Prior to destruction of the MESSAGE. 


These are input parameters which are used in the calls 
torvaGtous GiStrlputions for _the DeEpase of generating 
random numbers which are us#i to schedule events. In 
general, if xx 1s between 00 and 49, this should be an 
integer number. 


pointer 

his variable is a temporary location used to store the 
Pointer to the TEXT which 1S asSociated with a 
Particular MESSAGE. It 1S set in routine END. XSMN just 
BerOormrO GeStrUctlLon Of the MESSAGE. 


Taiswils a pow aay location used to.store the value of 
the message type. The value 1s set in routine END. XSHMN 
Womepewec to destruction of the MESSAGE, and it is 
este in the BN.MSG, BDE.MSG CO.MSG, and  DIV.MSG 
routines after destruction of the MESSAGE to determine 
aca the logic routines to call to handle the 
L e 


REAL VARIABLES 


ine 
This is avariable used to store the value returned 
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from the Fortran function MYTIME in event END.XSMN. The 
MYTIME routine returns the number of ten thousandths of 
a_ second left before the program uses up its allotted 
CPU time. This number is divided by 10000 and truncated 
before being stored in CHK.TIME. If the value stored in 
Ship ens 92S less than 10, a STOP.SIMULATION is 
scheduled immediately so that the data up to that point 
will be printed out and not lost as it would be if the 
job crashed for exceeding its allocated time. 


Com.data.dump ; 

This 1s an aAinput parameter which determines. how often 
the STAT.DUMP routine will be executed to print out the 
attributes of each CO. COMMANDER N.COMMANDER, 
BDE.COMMANDER, and DIV.COMMANDER. For example, if 
COM.DATA.DUMP 1s read i1n as 600.0 ae the user, 
ee See race. y every 600 seconds of Simulation time the 
attributes will be printed out. 


Com.time 
This variable is used to store the value of TIME.V each 
time the routine STAT.DUMP is called. It is used to 
insure that STAT.DUMP is only called once every 
COM.DATA.DUMP seconds of simulation time. 


Par 
1) hese are input variables used as parameters for the 
distributions provided by the Simscript language for 
scheduling events. and generating random numbers. If yy 
is a value from 50 to 99, the parameter should bea 
real variable. 


Rni 
This variable is used in routine SIEZE.NET to select at 
random the MESSAGE which will get the net from all 
those stored in MAILBAGs which are assigned to the net. 
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APPENDIX D 
COMMUNICATIONS PERMANENT ENTITIES 


BDE.COMMANDER 


Bdecur 
This attribute is the sum of the weights of all the 
battalions in the BRIGADE which ave requested 
ermission to move from the current coordination line. 
tC as reset to Zero each time the brigade first 
occupies a coordination line. 


Bdego_ ., , . . 
This. attribute 1S a user input Moe 3 bound. If BDECUR 
eguals or exceeds this value, all the battalions in the 
BRIGADE are _ ordered. to move. back to their next 
Coordination line oSition. A distinct BDEGO value is 
linked to each coordination line which the brigade can 
occupy. 


Bdelo 
This attribute 1S a user input_lower bound. If BDECUR 
saat Or exceeds this value, all the battalions in ths 
BRIGADE are given permission to move at will back to 
their next coordination lin2 position, A distinct 
BDELD value is linked to each coordination line which 
the brigade can occupy. 


n 

This user . input attribute is stored in the 
three-dimensional array, BDECORD. It indicates whether 
or not the brigade has permission to move from a given 
coordination ine. A 1means that the brigade has 
permission to move and a 0 means that the brigade does 
not have permission to move. 


Bderegst 
his attribute indicates whether or not a. brigade has 
requested permission. to nove tes een current 


coordination line poosition. A 1 means that the brigade 
has requested permission and a 0 means that the brigade 
has not requested permission to move. 


Bdewt 
This user input attribute indicates the tactical weight 
or relative importance of the brigade's position ona 
jarticular coordination line. There 1S a. distinct 
DEW? value for each of the coordination lines which 
the brigade can occupy. 


Brde 
This attribute stores the number designator of the 
brigade. 


No.bde. unit 
This attribute stores the number designator of the 
UNIT/TANK which 1S associated with the brigade 
commander. 
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Batt 


Bnsn 


Bncour 


Bngo 


Bnlio 


Bnwt 


BN. COMMANDER 


This attribute stores the number designator of the 
battalion. 


This user input attribute indicates whether or not the 
battalion has permission to withdraw from a particular 
coordination, line. This attribute is stored in the 
three-dimensional array, BNCORD. A 1 means that the 
battalion has permission to move while a 0 means that 
the battalion does not have permission to move. 


This attribute stores the sum of the weights of the 
companies which have requested permission to move from 
thelr current coordination line (position. It is reset 
to zero each time the battalion first occupies a 
CQordi nation Line. 


This user input attribute is an Eee bound. If, BNCUR 
equals or exceeds this value, all the companies in the 
BATTALION will, be ordered to move back to their next 
coordination line? position. A. distinct BNGO value is 
beamcieto Gach coordination Line which the battalion 
Gal OCC py. 


This user input attribute is a lower bound. If BNCUR 
egueee or exceeds this. value each © On Dany in the 
BATTALION 1s given _permission to move at will back to 
1ts next coordination line position. A_ distinct BNLO 
value is linked to each coordination line which the 
battalion can occupy. 


This user input attribute indicates the tactical weight 
or relative importance of the battalion's position ona 
amon coordination line. There is. a distinct BNWT 
value for each coordination line which the battalion 
Can occupy. 


Bregst 


This attribute indicates whether or not the battalion 
has requested permission to move from its current 
Cocrdimatzon line position. A 1 means that the 
battalion has requested permission to move while a 0 
aren that the battalion has not requested permission 
Oo move. 


Wo.bn.unit 


This attribute stores the number designator of _the 
UNIT/TANK which is associated with he battalion 
commander. 


CO.COMMANDER 


74 





EAS user. input attrieere stored in the 
enbee-Gamonsional array, COCORD, indicates whether a 
comdpamy . has  per@ission to move from a given 
coordination line position. A 1 means the company has 


Reg Ssh to move while a OO means that the company 
oes not have permission to move. 


Compy 
This attribute stores the number designator of the 
eon which 1S associated with ‘the company 
Ommander. 


Cowt 
Bots user Input attribute indicates the tactical weight 
or relative importance of the company's position on a 


G@even Coordination line, [niece "#i> a distincts COME 
waius fOr each coordination line which the company can 
OCCUDY. 

Creqst , : ee 
ils ,AttELbDUte windicates whether the company has 
requested permission to nove {rer its CUBL ent 


coordination line position. A 1 means that the compan 
has requested pernission to move while a 0O means that 
the company has not requested permission to move. 


DIV.COMMANDER 


Ddiv 
This attribute stores the number designator of the 
division. 


Divcur 
Passat rtrepute stores the Sum.of” themgmeights of the 
Drigades which have requested permission to move fron 
Poon CuGkent CoOoudination line position. it is reset 
to zero each. time the division first occuples a 
coordination lines. 


Divgo 
This attribute 1s a user input ee bound. If DIVCUR 
equals or exceeds this value, all the brigades in the 
Daeeowowikl be ordered to move back to their next 
SOGEG’Bation ine position. A. ~ distanct DIVGO value is 
@s5e6cea86d Meith each coordination line which the 
Giveslon can occupy. 


Divlo 
This user input attribute is a lower bound. Tf DIVCUR 
equals or exceeds this value, each brigade in the 
DEVYESION is 1v2n permission to _move at_will back to 
Sauce COOLGImatLON line poSLtion. A distinct DIVLO 
value is associated with each coordination line which 
wme dig gsSion can occupiy. 


Divregst ae 
his attribute indicates whether the division has 
requested permission to move from its current 


coordination line poSition. A.14 means that it has 
requested permission to move and a 0O means that it has 
not requested permission to move. 
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Divwt 
This. attribute is a user input which indicates the 
tactical welght or relative importance of the 
deyrsion'’s oSlition on a given coordination line. 
There 1s a,distinct DIVWT for each coordination line 
which the division can occupy. 


mo. div.unit 
This attribute stores the number designator of the 


UNIT/TANK which 1S associated with the division 
commander. 


B.MVR.CDR 


eae t 
y This attribute is used to determine the correct plane 
of the TABLE array which is to be used for a given UNIT 
on a given coordination line. 
There are many other attributes of the B.MVR.CDRs, but 
this is the only one which has any importance in the 
communications model. The rest of the attributes are used 


for combat analysis of casualties and related statistics. 


76 





APPENDIX E 
COMMUNICATIONS TEMPORARY ENTITIES 


FMNET 


Fm.idle 
This attribute indicates whether cr not the net isin 
tse, with a code of 1, or idie, with a code of 0. 
Paalt.freq 
This user input attribute contains the alternate 
frequency of tne FMNET. 


Pa@pri.freg 
This attribute cont 
frequency of the FPMNET 


mes .point 
This attribute contains a pointer to the TANK/UNIT of 
Gee net control station for the FENET. 


Num.net 
ee Tt bute indicates the numeric designator of this 


ains the user input primary 


MESSAGE 


Addressee 
his attribute stores the Ointer to the UNIT/TANK 
which is associated with the commander who is the 
addressee of the message. 


Dest.code 
This attribute stores a code value which indicates the 
level to which the message is being sent. For example, 
e pane value of this variable lies between the user 
Lae values for CO.LO.BD and CO.UP.BD, the message 
1 be sent to the company level. 


Length. msj 

This ttribute stores the length of the message in 
aalias c G seconds. Et is used durin event 
GCOMAOLATTEMNPT to determine when to schedule the 
END. XSMN event. 


Lst.send.time 
his attribute stores the simulated time. beyond which 
the massage will not be transmitted. It is used in the 
eee: event to determine if the message should 
e aborte 


Msg.no 
Ee This attribute stores the number of the message in the 
form nxxx where n is. the number of the NIT/TANK 
sending the message and xxx is a sequential integer 
which Starts at one and increases one for each message 
sent by this UNIT/TANK. 
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Msg.text 
This attribute stores the pointer to the text which is 
created to go with this message. 


Msg.type 
; this attribute indicates the type of the message. For 
example, a ups 30 message is a request for permission 
to move from the battalion to the brigade. 


MYSET 


Nxt.msg.nd 
This attribute stores the number designator of the next 
message which this particular TANK/UNIT will send. 


RT.CONFIG 


Ant.type 
this attribute contains a code which describes the ae 
of antenna which is used by the radio configuration. [If 
the value 1s less than. zero, the antenna 1s 
directional. If .the value is greater than zero, the 
antenna 1s omnidirectional. 


ant ax. Loc 
This attribute contains the x coordinate of the 
location of the antenna which may not be the same as 
the location of the TANK/UNIT which uses that antenna 
because remote antennas are allowed. 


mat. y-.iloc ; ; 
This attribute contains the y coordinate of the 
location of the antenna. 


In.use 
This attribute contains a code which is_ set to 1 to 
indicate that.the radio set 1s in use and is’ set to 0 
when the set 1s not being used. 


Beeeeor tation ; 
This attribute contains a.code which designates the 
mode of operation of the radio. 


Own.subscriber | 
This attribute contains a pointer, to the subscriber 
peace owns the TANK/UNIT to which this RT.CONFIG 

elongs. 


geo ope | ; 

is attribute contains a code which designates the 
type of radio. 

Rem.ant. . ; 
This attribute contains a code which tells if the 


antenna for this RT.CONFIG is remoted or not. Any value 
other than zero indicates a remoted antenna. 


SUBSCRIBER 


Own.net 
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ie attribute contains a pointer to the FMNET which is 
used. 


G@n.tank 
This attribute contains a. pointer to the UNIT/TANK 
associated with this subscriber. 


Beo.Waiting ; 
This attribute contains a. code of 
least one message filed in this SJ 
Waiting to be sent. Otherwise, th 
attribute is 0. 
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APPENDIX F 
COMMUNICATIONS ARRAYS 


BDECORD 

fhe BDECORD array, stores five different attributes 
of the brigades. It is a three dimensional array which 
has a plane for each blue brigade. Within each plane 
there 1s a row for each phase line which the brigade 
can occupy and within each row there are five columns. 
One column for each of the five attributes which will 
be stored. The first column contains BDEMSN, the code 
for whether or, not the brigade has permission to move 
off this coordination line. The second column contains 
BDECUR, which is the sum of the weights of the 
battalions which have requested permission to move from 
their coordination line positions. The third column 
contains BDEWT, which is the _user Sees estimate of 
the tactical importance of the rigade on this 
coordination line. The fourth column contains BDELO, 
the lower bound which if exceeded by BDECUR causes the 
brigade to give all its _ battalions permission to nove 
from thelr current coordination line positions. The 
fifth column contains BDEGO, the upper bound which if 
exceeded by BDECUR causes the brigade to order all its 
battalions to move from their currént coordination line 
positions. This array is used to reset the attributes 
of the brigade commanders after they first Coy a 
coordination line position. The array itself, with the 
exception of BDEMSN and BDECUR values is loaded during 
the initialization of the program using input data 
Supplied by the user, A diagram of the way this array 
1s Organized is provided in Figure 13. 


BNCORD 
This arra is the same one that is. used Die the 
roduction STAR model., It.1s explained in Appendix A. 
i diagram of the organization of the array is provided 
ii rigures ii. 


BNETTBL 
This two dimensional array is used by the 
communications routines as a_ table looku which 
contains the subscript number of the UNITS/TANKS which 
belong to the FMNETs. The subscripts of the TANKS 
which belong to the ith FMNET are elements of the ith 
row o£ the array. Because the FMNETs are not 
restricted to gal having the, same number of 
SUBSCRIBERS, .this arfay is , necessarily eo An 
example of this array 1s provided in Figure 14. 


COCORD 
This arra is the same one that is. used Die the 
roduction STAR model. It.is explained in Appendix A. 
\ diagram of the organization of the array is provided 

Mime rgure id. 


DIVCORD 
This array is similar to the BNCORD AND BDECORD 
arrays. It contains the same type of data but for the 
division level as ODE eS to the brigade level. A 
diagram of the way is three dimensional array is 
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BDECORD DIAGRAM 





ve dees 


BDEGO 
BDELO 


BDEWT 


BDECUR 


BDEMSN 


A plane for each brigade 
A row in each plane for each phase line 


A column in each plane for each of the five attributes 


FIGURE 13 
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BNETTBL DIAGRAM 













| 
| | 
Subscripts of members ot! 


| 
FMNET #1 












. | 
Subscripts of members oO 
FMNET #2 | 


j 


if 










nf 


Subscripts of members of 
FMNET #n | | | 


FIGURE 14 
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organized is provided in Figure 15. 


RRPOINT 

_. This two dimensional array is used primarilly as an 
aid to eed aed It contains the pointer values of 
the ONITS/TANKS which belong,to the ith radio net in 
the ith row of the Sen This array 1s released after 
the initialization of he program where it 1s printed 
out since the pointers. never change during the 
Simulation. A diagram of the organization of this 
array 1S provided in Figure 16. 


TABLE 
This three dimensional array is the same as the one 
used by the production version OF - STAR. It us 
explained in Appendix A. A diagram of the organization 
of the array iS provided in Figure 10. 
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DIVCORD DIAGRAM 





DIVGO 


Bivision 






DIVLO 
DIVWT 
DIVCUR 


DIVMSN 


A plane for each division 
A row in each plane for each phase line 


A column in each plane for each of the five attributes 


FIGURE 15 
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RRPOINT DIAGRAM 


Address pointers for members 


| 





FIGURE 16 
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APPENDIX G 
COMMUNICATIONS SETS 


Ceol.list 
This set contains pointers to all the SUBSCRIBERS who 
have access to a specific FUNET. 


Ether 
This set contains. all the FMNET's which are simulated 
by the communications model. 


Mailba 
This set contains Pee ae ers to all the MESSAGEs 
enerated by a given SUBSCRIBER for a given FMNET which 
aven't been sent. 

Rad.list 
a 


his set contains pointers to all the RT.CONFIGS of a 
given TANK. 


Figure 2 contains a complete diagram of all the sets and 


pointers used by the communications model. 
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APPENDIX H 


ROUTINE OECISION (ROW, COL, T) 


““THIS ROUTINE EXAMINES THE STATUS GF THE SECTION OR COMPANY TO WHICH 
““TANK T BELONGS ANO DETERMINES WHETHER GR NOT MGVEMENT IS ALLOWED 


IF COM.PRINT GT 20 PRINT 1 LINE WITH TIME.V THUS 
INTO DECISION AT some, sercr 
ALWAYS 
LET ORDER= NO 
IF MVARY (ROW,COL) GE 4 LET CROER@YES 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH ROW AND COL AS FOLLONS 


33333----- STATUS OF MVARY (ROWenxnnn, COLannnem) CAUSED EXIT WITH GRDER=YES 
SKIP 1 LINE 
ALWAYS 
GO TG ACTY, ACTS, ACTS PER (MHVARY(ROW,CGL) - 3) 
“ACTY * 


CALL 8N.GO(T,SYS,WPN) 
GO TO ACT.NOW 
“ACTSS 
CALL OTHER.GO(T,SYS,WPN) 
GO TO ACT.NOW 
“ACTG* 
CALL MOUNTER (T,SYS,WPN) 
“ACT. NOW * 
SCHEDULE A RE.MV.STATE(CO(T)) IN §0 UNITS 
RETURN 
ELSE 
IF TABLE (PRTY (CO (T)), ROW, 4) #0 


**THE SECTION OR COMPANY IS NOT RESTAICTED FROM MOVING AT WILL. 


LET ORDER=YES LET FLAG=1 

CALL EXIT (ORDER, T,CRIT,P.Z. TIME, FLAG) 

LET ORIG#*ARAPOINT (CO (T)) 

LET ADDOR.STORE = RRRPOINT (NC. BN.UNIT (BN (T))) 

CALL GEN. MOVE.DECISION. MSG (PHARGN, ORDER, T,CRIT,P.Z.TIME) YIELDING MSG 


**GENERATE A MESSAGE INFORMING THE BATTALION OF THE CO/SEC MOVE. 


LET OEST.CODE (MSG) = BN.LEVEL 
IF ROW EQ 7 LET MSG. TYPE (MSG) = CO.TELLS.BN.OF.CO.mMOVE 
CALL CO.G6 (T,S7S,WPN) 
SCHEDULE A RE.MV.STATE (CO(T)) IN 60 UNITS 
IF RANGE (CHK.ANG) LE TABLE (PRTY (CO (T)) , ROW, 3) 
PRINT 1 LINE AS FOLLOKS 
o+* DECISION BASED ON RANGE TO ENEMY *e+e+% 
ALHAYS ; 
EES 
LET MSG. TYPE (MSG) = CO.NOTIF.BN.OF.SEC.MOVE 
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ai IF RANGE (CHK.RNG) LE TABLE (PRTY (CO (T)) ,RON, 3) 


52 PRINT 1 LINE AS FOLLOWS 

53 +++ DECISION BASED GN RANGE TO ENEMY ++++++ 

Su CALL VEH.GO(T, TABLE (PRTY (CO (T)) 1,1) , TABLE (PRTY (CO (T)) .1,2)) 
53 CALL CHG. STATUS (T) 

56 RETURN 

57 ELSE 

58 LET SYS=TABLE (PRTY (CO (T)) , RO, 1) 

59 LET WPN=TABLE (PRTY (CO (T)) , ROW, 2) 

60 CALL CHG.STATUS(T} 

61 GO TO ACT!, ACT2 PER MVARY (RON, COL) 

62 "ACTIN ; 

63 CALL SEC.GO(T,SYS,WPN) 

64 GO TO ACT.LATER 

65 ‘ACT2° 

66 CALL PLT.GO(T, SYS, HPN) 

67 "ACT.LATER® 

68 SCHEDULE A RE.MV.STATE(CO(T}) IN 60 UNITS 

69 ALWAYS 

70 SCHEDULE A COMHO. ATTEMPT (GRIG,MSG) NOW 

71 RETURN 

72 ELSE 

73 IF CREQST(CO(T)) £0 1 

74 

75 “*THIS COMPANY HAS PREVIGUSLY REQUESTED PERMISSION TO MOVE. 
76 

77 IF COM.PRINT GT 15 

78 PRINT 1 LINE AS FOLLOWS 

79 l1lll----- CREQST (CO(T)) EO 1 CAUSED A RETURN 

80 ALWAYS 

81 RETURN 

82 ELSE . 

a3 LET ACHK=TRUNC.F (AREA. START (T) /100) 

au IF ACHK GT PHAROK 

85 

86 **DETERMINE IF THE COMPANY IS ON THE SAME PHASE LINE AS THE REST oF 
87 "°ITS SISTER UNITS. IF 17 18 FARTHER TO THE REAR, OO NOT ALLOW A 
88 **REQUEST TO MOVE. 

89 

90 IF COM.PRINT GT 15 

91 PRINT 1 LINE WITH ACHK AND PHARGH AS FOLLOWS 

92 22222----- STATUS GF ACHK=xxx GT PHARON=xxx CAUSED A RETURN 

93 ALWAYS 

Qu RETURN 

95 ELSE 

96 IF COCGRD (CO (T) ,ACHK, 1) #1 

97 

98 “*THE COMPANY 1S RESTRICTED BUT HAS BEEN GIVEN PERMISSION TO HOVE. 
39 

100 LET ORDER=YES LET FLAG=2 
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101 
102 
103 
104 
105 
106 
10? 
108 
109 
110 
111 
lie 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


ELSE 


CALL EXIT (ORDER, T,CRIT.P.Z. TIME, FLAG) 

LET SRIG*RRRPOINT (CO (7) ) 

LET ROOR.STORE = RRRPOINT (NO. BN.UNIT (BN (T))) 

CALL GEN. MOVE.DECISION. MSG (PHARGW, OROER,T,CRIT,P.Z.TIME) YIELOING MSG 


**GENERATE A MESSAGE INFORMING THE BATTALION OF THE CO/SEC MOVE. 


LET OEST.COOE (MSG) = BN.LEVEL 
IF ROW EQ 7 LET MSG.TYPE (MSG) = CO.TELLS.BN.OF.CO.MOVE 
CALL CO.GO(T,SYS,WPN) 
SCHEDULE A RE.MV.STATE (CO(T)) IN 60 UNITS 
IF RANGE (CHK.RNG) LE TABLE (PRTY (CO (T)) , ROW, 3) 
PRINT 1 LINE AS FOLLOWS 
+++ DECISION BASED ON RANGE TO ENEMY +444 
ALWAYS 
EDoc 
LET MSG.TYPE (MSG) = CO.NOTIF.BN.OF.SEC.MOVE 
IF RANGE (CHK.RNG) LE TABLE (PRTY (CO (1)) , ROW, 3) 
PRINT 1 LINE AS FOLLOWS 
+++ DECISION BASED ON RANGE TO ENEMY +4444 
CALL VEH.GO(T, TABLE (PRTY (CO (T)).1,1), TABLE (PRTY (CO(T)) .1,2)) 
CALL CHG.STATUS (7) 
RETURN 
EESE 
LET SYS=TABLE (PRTY (CO (7) ), ROW, 1) 
LET WPN#TABLE (PRTY (CO(T))., ROW, 2) 
CALL CHG.STATUS (7) 
G6 TO BCT1, BCT2 PER MVARY (ROW,COL) 
‘“BCT1° 
CALL SEC.GO(T.SYS,WPN) 
GO TO BCT.LATER 
‘BCTe° 
CALL PLT.GO(T.SYS,WPN) 
*BCT.LATER* . 
SCHEOQULE A RE.MV.STATE(CO(T)) IN 60 UNITS 


ALWAYS 


SCHEOQULE A COMMO.ATTEMPT (ORIG, MSG) NOW 
RETURN 


LET FLAGs3 
LET GRIG*RRRPOINT (CO (T)) 
LET AOOR.STGORE = RRRPOINT (NO.BN.UNIT (BN (T))) 


CALL 


GEN. MOVE.DECISION.MSG (PHARGN, ORDER, T,CRIT.P.Z. TIME) YIELOING MSG 


**GENERATE A MESSAGE TG THE BATTALIGN REQUESTING PERMISSION TO MOVE. 


LET OEST.COOE (MSG) = BN.LEVEL 

LET MSG. TYPE (MSG) = CO.BN.REQ.PERM.TO.MOVE 
SCHEOULE A COMMO.ATTEMPT (ORIG, MSG) NOW 
RETURN 
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iSe2 
153 


END 
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APPENDIX I 


ROUTINE OEC.CO 
DEFINE J AS AN INTEGER VARIABLE 


IF COM.PRINT GT 20 PRINT 1 LINE WITH TIME.V THUS 
ENTERED DEC.CO ROUTINE AT TIME. Varese, serene 
ALWAYS 
LET TEXT (x) = TEXT. POINTER 
LET PHAROGW = TEXT (1) 
LET ORDER = TEXT (2) 
LET T = TEXT (3) 
LET CRIT = TEXT(4) 
LET P.Z.TIME = TEXT (5S) 
LET TEXT (x) #0 
IF CO.CAN.NOT.MOVE 
LET COCORO (CS (T) ,PHARGW,1) = O 
IF COH.PRINT GT 15 
PRINT 1 LINE WITH CO(T) THUS 
COMPANY == HAS BEEN GROEREO NOT TO MOVE 
ALWAYS 
SKIP 2 LINES 
RETURN 
ELSE 
IF CO.MAY.HOVE 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH CO(T) THUS 
COMPANY == HAS BEEN GIVEN PERMISSION TG MOVE AT WILL 
SKIP 2 LINES 
ALWAYS 
LET. COCGRO (CO (1), PHARGH,1) = 1 
ALWAYS 
IF CO. GROEREO. TO. MOVE 
IF COH.PRINT GT 15 
PRINT 1 LINE WITH CO(T) THUS 
COMPANY == HAS BEEN GROEREO TG MOVE 
SKIP 2 LINES 
RLRAYS 
LET COCGRO(CQ(T),PHARGW,1) = 1 
FOR EACH TANK IN BLUE.ALIVE WITH CO(TANK) = COMPY (COHPANT.COMHANDER) 
UNTIL J#1, DO 
CALL AIR.COMMO(TANK,3) LET CRIT#¥ 
CALL CO0.GO(TANK,0O,0) 
SCHEOULE A RE.MV.STATE (CO (TANK)) IN 60 UNITS 
LET JaJ+1 
LOePp 
LET GROERz2 
LET FLAG = Y 
CALL EXIT(QROER,T, CRIT, P.Z.TIME,FLAG) 
LET FLAG = O 
RETURN 
ELSE 


ox 





LET ACHK = TRUNC.F (AREA. START (T) /100) 
IF COCORD (CO (T) ,ACHK, 1) 21 
LET OROER#=YES 
ALWAYS 
LET FLAG = 15 
CALL EXIT (ORDER, T.CRIT,P.Z. TIME, FLAG) 
LET FLAG = 0 
RETURN 
END 
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APPENDIX J 


ROUTINE OEC.BN 


IF COM.PRINT GT 20 PRINT 1 LINE WITH TIME.V THUS 
ENTERED DEC.BN ROUTINE AT TIME, Vasnscn, wren 
ALWAYS 
LET TEXT (x) = TEXT. POINTER 
LET PHAROW = TEXT (2) 
LET ORDER = TEXT (2) 
LET T = TEXT (3) 
LET CRIT = TEXT (4) 
LET P.Z.TIME = TEXT (S) 
LET TEXT (=) 20 
IF CREQST(CO(T)) EQ O AND TYPE EQ CO.BN.REQ. PERM. TO. MOVE 
LET CRIT#=1 LET BNCUR (BN(T)) =BNCUR (BN(T)) * CONT (CO(T)) 
LET CREQST (CO (T)) #1 
ALWAYS 
IF CO.HAS. MOVED 
IF COM.PRINT GT 15 
PRINT 1 DOUBLE LINE WITH GRIG, ADRSEE, AND TEXT.PGINTER AS FOLLOWS 
ULYUNeeooe( mannnnnn NOTIFIED BN uxnnnnmn BY MESSAGE (TEXTaxxnnnxnx) THAT IT 15 
MOVING FROM ITS CURRENT POSITION. 
ALRAYS 
LET BNCUR(BN(T)) = BNCUR(BN(T)) + CONT (CO(T)) 
LET FLAG#16 
LET T#RRRPCINT (NO. BN.UNIT (BN(T))) 
LET ADOR.STORE = RRRPGINT (NO. BDE.UNIT (8DE (T) )) . 
CALL GEN. MOVE. DECISION. MSG (PHAROW, OROER,T,CRIT.P.Z. TIME) YIELDING MSG 
LET DEST.COOE (MSG) = BDE.LEVEL 
LET MSG. TYPE (MSG) = BN.NGTIF.BOE.0F.CO. MOVE 
LET ORIG = T 
SCHEOULE A COMMO.ATTEMPT (ORIG,MSG) IN COMO6.DISTR(PARGO,PARG61,4) UNITS 
RETURN 
ELSE 
IF SEC.HAS. MOVED 
IF COM.PARINT GT 15 
PRINT 1 OGUBLE LINE WITH GRIG, ADRSEE, AND TEXT.POINTER THUS 
BE6E642099CO xn NOTIFIED BN sexe BY MESSAGE (TEXTaxxnnxnxcce) THAT ONE 0 
F ITS SECTIONS 1S MOVING FROM ITS POSITION. 
ALRATS 
RETURN 
BLESE 
IF BN. ORDERED. 18. MOVE 
LET BNCORD (BATT (BN{(T)) ,PHAROGN,1) = 1 
LET BNCUR (BN(T)) =BNCUR (6N (T))* BNGO (BN (T)) 
ELSE 
IF BN.MAY. MOVE 
LET BNCORD (BATT (BN(T)),PHARON,1) = 1 
LET BNCUR(BN(T)) = BNLO(BN(T)) 
EUSEe ; 
IF BN.CAN.NOT. MOVE 
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LET BNCORD (BATT (BN(T)},PHARGW,1) = D 
RETURN 
ELSE 
ALNAYS 
RLWATS 
LET TEMP=ADRSEE LET ADRSEE*GRIG LET ORIG=TEMP 
IF BNCORD (BATT (BN(T))},PHARON, 1) =! 


"*THIS BATTALION HAS PERMISSION TO MOVE AT WILL. 
IF 68NCUR(BN(T)}) GE BNGO(BN(T)} 
**THE CRITICAL STATUS OF THE BATTALION HAS EXCEEDED ITS GO THRESHHOLD. 


IF COmM.PRINT GT 15 
PRINT 1 LINE WITH BN(T), TIME.¥ AS FOLLOWS 
BN God NOT RESTRICTED AND ORDERED COMPANIES TO MOVE AT mrerre, nsere 
ALWAYS 
FOR EACH COMPANY.COMMANDER IN BATTALION (BN{(T}), DO 
LET FLAG=9 
LET T=RRAPOINT (COmMPY (COMPANY. COMMANDER} ) 
LET ADOR.STORE = T 
CALL GEN. MOVE.DECISION.MSG (PHARGH, ORDER, T, CRIT, P.Z.T IME) 
YIELDING MSG 
LET DEST.CODE (MSG) = CO.LEVEL 
LET MSG.TYPE (MSG) =CO. TOLD. 70. mMOVE.BY.BN 
SCHEDULE A COMMC.ATTEMPT (ORIG,MSG) IN 
COmMOS.OISTR(PARSS, PARSS, 5} UNITS 
Loop 
LET FLAG2=1S 
LET T=RRAPOINT (NO.BN.UNIT (BN (73 3 
LET ACOR.STORE = RRAPOINT (NO.BDE.UNIT (BOE (7) }) 
CALL GEN. MOVE. DECISION.MSG (PHAROH, ORDER, T,CRIT,P.Z2. TIME) YIELDING MSG 


**GENERATE A MESSAGE INFORMING BODE THAT ALL COS ARE BEING ORDERED TC 
**MGVE AS SOON AS POSSIBLE. 


LET DEST.CODE (MSG) = BDE.LEVEL 
LET MSG. TYPE (MSG) = BN. TELLS.BDE.OF.BN.MOVE 
IF COM.PRINT GT {5 
PRINT 1 OOUBLE LINE WITH ORIG, ADDR.STORE, ANDO MSG.NO (MSG) THUS 
T7777 9207778N sooo NOTIFIED BODE sooooaac BY MESSAGE NO xxx THAT IT HAS OAD 
ERED ALL COMPANIES TG MOVE AS SOON AS POSSIBLE. 
ALHAYS 
SCHEDULE A COMMO.ATTEMPT (ORIG, MSG) IN COMOS.DISTR (PARGO,PARS1,4) UNITS 
RETURN 
ELSE 
IF BNCUR(BN(T)) GE BNL@(BN(T)) 


°*THE BATTALION CRITICAL STATUS HAS EXCEEDED THE LO THRESHHOLOD. 
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101 
102 
103 


10S 
106 
107 


108 
110 
131 
lle 
113 
218 
115 
116 
117 
218 
119 
120 
121 
1e2 
123 
128 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
241 
142 
143 
144 
145 
1N6 
147 
248 
149 
130 


IF COM.PRINT GT 15 
PRINT 1 LINE WITH BN(T), TIME.V AS FOLLOWS 
BN(xx) NOT RESTRICTED AND GAVE COS PERMISSION TO MOVE AT xm. woes 
ALWATS 
FOR EACH COMPANY.COMMANDER IN BATTALION (BN(T)), DBO 
LET FLAG#=10 
LET T=RRAPOINT (COMPY (COMPANY. COMMANDER) ) 
LET ADDAR.STORE = T 
CALL GEN. MOVE. DECISICN. MSG (PHARON, OROER,T, CRIT, P.Z. TIME) 
YIELDING MSG 
LET DEST.CODE (MSG) = CO.LEVEL 
LET MSG. TYPE (MSG) = BN.GAVE.CO.PERM.TO.MOVE 
SCHEDULE A COMMO.ATTEMPT (ORIG,MSG) IN 
COMOS. DISTR (PARSS, PARSS,S) UNITS 
LOOP 
LET FLAG=11 
LET TsRRRPOINT (NO.BN.UNIT (BN (T)}) 
LET AODR.STORE = ARAPOINT (NO. BDE.UNIT (BDE (T))) 
CALL GEN. MOVE.DECISION. MSG (PHAROW, ORDER, T,CRIT,P.Z. TIME) YIELOING MSG 


**GENERATE A MESSAGE INFORMING BODE THAT ALL COS HAVE BEEN GIVEN 
“*PERMISSION TO MOVE AT WILL. 


LET DEST.CODE (MSG) = BDE.LEVEL 
LET MSG.TYPE (MSG) = BN. TELLS.80E.0F.BN. MOVE 
IF COM.PRINT GT 15 
PRINT 1 DOUBLE LINE WITH GRIG, ADDR.STORE, AND MSG.NO (MSG) THUS 


B88B8eereoBN uum NOTIFIED BOE xonnnnxx BY MESSAGE NO xunnnx THAT IT HAS GIV 
EN ALL COMPANIES PERMISSION TO MOVE AT WILL. 


ELSE 


ALWATS 
SCHEDULE A COMMO.ATTEMPT (GRIG,MSG) IN COMO6.DISTR (PARGO,PARS1,4) UNITS 
RETURN 
ELSE 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH BN(T), TIME.V AS FOLLOWS 
BN (xx) NOT RESTRICTED AND OROERED COMPANY NOT TO MOVE AT xoerereae, serene 
ALWATS 
LET FLAG = 12 
LET ADOR. STORE = AORSEE 
LET T = ADASEE 
CALL GEN. MOVE.DECISION.MSG (PHARGH, OROER,T,CAIT,P.Z. TIME) YIELOING MSG 
LET OEST.COOE (MSG) = CO.LEVEL 
LET MSG. TYPE (MSG) =BN.DIA.CO.NOT.TO.MOVE 


“SCHEDULE A COMMG.ATTEMPT (ORIG,MSG) IN COMOS.OISTA(PARSS8,PARSS,S) UNITS 


RETURN 


IF BNCUR(BN(T)) GE BNLO (BN (1) 3 


IF COM.PRINT GT 15 
PRINT 1 LINE WITH BN(T) AND TIME.V THUS 
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151 
152 
153 
1548 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 


ELSE 


BN(x«) IS RESTRICTEO AND IS REQUESTING PERMISSION TO MOVE AT xx. rr 
ALWAYS 

LET FLAG = 13 

LET TsRRRPOINT (NO. BN. UNIT (BN(T) )) 

LET AOOR.STORE = RRRPOINT (NO.BOE.UNIT (BOE (7))) 

CALL GEN. MOVE. DECISION.MSG (PHAROW, OROER,T,CRIT,P.2.TIME) YIELOING MSG 
LET DEST.CODE (MSG) = BOE.LEVEL 

LET MSG. TYPE (MSG) =BN. BOE. REQ.PERM. 10. MOVE 

SCHEDULE A COMMO.ATTEMPT (ORIG, MSG) IN COMO6.DISTA (PARGO,PARG1,4) UNITS 
RETURN 


IF COM.PRINT GT 15 

PRINT 1 LINE WITH BN(T) AND TIME.V THUS 
BN (x) IS RESTRICTED AND GRDOERED THE REQUESTING CO NOT TO MOVE AT wom. won 
ALWAYS 


LET FLAG#14 


CALL 


EXIT (ORDER,T, CRIT, P.2Z. TIME, FLAG) 


LET ADOR.STGRE = ADRSEE 

LET T = ADRSEE 

CALL GEN. MOVE. DECISION. MSG (PHARGH, OROER,T,CRIT,P.Z. TIME) YIELOING MSG 
LET DEST.COOE (MSG) = CO.LEVEL 

LET MSG. TYPE (MSG) =BN.DIR.CO.NOT. 10. MOVE 

SCHEDULE A COMMO.ATTEMPT (GRIG, MSG) IN COMOS5S.OISTR(PARSS,PARSS,5) UNITS 
RETURN 


END 
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APPENDIX K 


ROUTINE DEC. BODE 


IF COM.PRINT GT 20 PRINT 1 LINE WITH TIME.V THUS 
ENTEREO DEC. BDE ROUTINE AT TIME. Vemoennee, rere 
ALWAYS 
LET TEXT (x) = TEXT. POINTER 
LET PHARGW = TEXT (1) 
LET GROER = TEXT (2) 
LET T = TEXT (3) 
LET CRIT = TEXT (4) 
LET P.Z.TIME = TEXT (5) 
LET TEXT (x) 20 
IF BREQST (BN(T)) 20 AND TYPE EQ BN. BDE.REQ.PERM. TO. MOVE 
LET CRIT#2 
LET BDECUR (BODE (T) ) sBDECUR(BDE (T)) BNWT (BN (T)) 
LET BREQST (BN(T)) #1 
ALWAYS 
IF BN.HAS. MOVED 
IF COM.PRINT GT 15 
PRINT ! OOUBLE LINE WITH ORIG, ADORESSEE (MSG), ANO TEXT.POINTER THUS 
SSSSS++eeeBN uence NOTIFIED BRIGADE sone BY HESSAGE xxsoooace THAT IT HAS 
MOVED FROM ITS POSITION 
ALRAYTS 
LET BOECUR(BDE(T)) = BOECUR(BOE(T)) + BNWT (BN(T)) 
LET FLAG#=21 
LET T#RRRPOINT (NO. BOE.UNIT (80E (T))) 
LET ADOR.STGRE = RRRPOINT(NG.OIV.UNIT (OIV(T))) 
CALL GEN. MOVE.DECISION. MSG (PHARGH, GROER,T,CRIT,P.Z.TIME) YIELOING MSG 
LET DEST.CODE (MSG) = OIV.LEVEL 
LET MSG.TYPE (MSG) = BOE.NOTIF.DIV.OF.BN.MOVE 
LET GRIG = T 
SCHEDULE A COMMG.ATTEMPT (GRIG,MSG) IN COMO3.OISTR(PARSY,PARSS,9) UNITS 
RETURN 
ELSE 
IF CO.HAS. MOVED 
IF COM.PRINT GT 15 
PRINT 1 OOUBLE LINE WITH ORIG, AORSEE, AND TEXT.POINTER AS FOLLOWS 
AAAARS++**BN xoxo NOTIFIED BOE wxmnncxm BY MESSAGE (TEXTaxnnnxnnx) THAT ONE 
OF ITS COMPANIES IS MOVING FROM ITS POSITION. 
ALWAYS 
RETURN 
ELSE 
IF BODE. ORDERED. TO. MOVE 
LET BOECGRO(BROE (BOE (T)),PHARGW,1) = 1 
LET BOECUR(BOE(T)) = BOECUR(BOE(T)) + BOEGO(BOE (T)) 
ELSE 
IF BDE.MAY.MQVE 
LET BOECGRO (BRDE (BOE (T)) .PHAROW,1) = 1 
LET BOECUR(BDE(T)) = BOELO (BOE (T)) 
ELSE 


oy) 





IF BOE.CAN.NOT.MOVE 
LET BOECORO (BROE (BOE (T)} ,PHARGN.1) = 0 
RETURN 
CESE 
ALWATS 
ALWAYS 
LET TEMP=ADRSEE LET ADORSEE=GRIG LET GRIG=sTEMP 
IF BOECSAO (BROE (BOE (T)} ,PHARGH,1) = 3 


**THIS BRIGADE HAS PERMISSIGN TO MGVE AT WILL. 
IF BOECUR (BODE (T)) GE BDEGS (BDE (T}} 
“*THE CRITICAL STATUS OF THE BRIGADE HAS EXCEEDED ITS GO THRESHHGLO. 


LET CRIT = 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH BOE (T} ANDO TIME.V¥ THUS 
BOE (xx} NOT RESTRICTED AND SROERED BATTALIGNS TO MOVE AT moose, serene 
ALRATS 
FOR EACH BN.COMMANDER IN BSAIGADE (BDE (T3),06 
LET FLAG=S 
LET T=RRRPSINT (NO.8N.UNIT (BN. COMMANDER) } 
LET ADOR.STORE = T 
CALL GEN.MOVE.DECISION.MSG (PHAROW, ORDER.T.CRIT,P.2.TIME} YIELOING MSG 
LET DEST.CODE (MSG) = BN.LEVEL 
LET MSG. TYPE (MSG) =BN. TOLO.TC.MOVE.BY.BDE 
SCHEDULE A COMMO.ATTEMPT (GRAIG, MSG} IN COMOU.OISTR (PARSS,PARS7.73 UNITS 
Loop 
LET FLAG = 17 
LET T = RARPOINT (NG. 80E.UNIT (BOE (T} 3} 
LET ADOR.STORE = ARRPOINT (NO. O1V.UNIT (BODE (T})3 
CALL GEN. MOVE.DECISION.MSG (PHAROW, ORDER, T,CRIT,P.Z.TIME} YIELOING MSG 


**GENERATE A MESSAGE INFORMING DIV THAT ALL BNS ARE BEING OROERED TO 
**MOVE AS SOON AS POSSIBLE. 


LET DEST.COCE (MSG} = OIV.LEVEL 

LET MSG.TYPE (MSG) = BOE.LETS.DIV.KNOW.OF.BDE. MOVE 

IF COM.PRINT GT 15 

PRINT 1 OSUBLE LINE WITH GRIG, ADOR.STORE, AND MSG.NO(MSG)} THUS 

BBBBB++4+BDE xxmnnnnen NOTIFIED DIV xxnnncen BY MESSAGE NO xxxnnn THAT IT HAS OR 
DERED ALL BATTALIONS TO MOVE AS SOON AS POSSIBLE. 

ALWAYS 

SCHEOULE A COMMG.ATTEMPT (ORIG, MSG} IN COMQ3.DISTR (PARSY,PARSS.9) UNITS 

RETURN 

ELSE 
IF BOECUR (BOE (T)) GE BOELS (BOE (T)) 


**THE BRIGADE CRITICAL STATUS HAS EXCEEDED THE LO THRESHHOLO. 
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101 
102 
163 
104 
105 
106 
107 
10B 
103 
110 
111 
lie 
113 
114 
115 
116 
117 
118 
11S 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
13S 
140 
18} 
We 
183 
Gy 
185 
1u6& 
187 
14B 
1N9 
150 


LET CRIT=3 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH BOE(T) ANO TIME.V THUS 
BOE (xm) NOT RESTRICTED AND GAVE BNS PERMISSIGN TO MOVE AT moose, moe 
ALNATS 
FOR EACH BN.COMMANDER IN BRIGADE (BOE (T)), OG 
LET FLAG=6 
LET T=#RRAPOINT (NO.BN.UNIT (BN. COMMANDER) ) 
LET ADOR.STORE = T 
CALL GEN.MOVE. DECISION. MSG (PHAROGW, OROER,T,CRIT,P.Z2. TIME) YIELOING MSG 
LET DEST.CQDE (MSG) = BN.LEVEL 
LET MSG.TYPE (MSG) #BDE.GAVE.BN.PERM.TO.MOVE 
SCHEOULE A COMMO.ATTEMPT (ORIG,MSG) IN COMOX.DISTR(PARSE6,PARS?,7) UNITS 
LOOP 
LET FLAG = 18 
LET T = RRAPOINT (NO.BDE.UNIT (BOE (7333 
LET ADOR.STORE = RARPOINT (NG.OIV.UNIT (BDE (T) 3) 
CALL GEN.MOVE.OECISION. MSG (PHARGN,OROER.T,CRIT,P.Z.TIME) YIELOING MSG 


*“*GENERATE A MESSAGE INFORMING OV THAT ALL BNS HAVE BEEN GIVEN 
*“*PERMISSION TO MGVE AT WILL. 


LET DEST.COOE (MSG) = OIV.LEVEL 
LET MSG.TYPE (MSG) = BOE.LETS.OI1V.KNOW.OF.BDE. MOVE 
IF COM.PRINT GT 15 
PRINT 1 QGOUBLE LINE WITH GRIG, ADOR.STORE, ANDO MSG.NO (MSG) THUS 


CCOCCC+ee+e+BDE uxnnnnxne NOTIFIED DIV wxnnnnxm BY MESSAGE NO xxnnxe THAT IT HAS GI 
VEN ALL BATTALIONS PERMISSION TO M@VE AT WILL. 


ELSE 


BESE 


ALWAYS 
SCHEDULE A COMMO.ATTEMPT (GRIG,MSG) IN COMO3.D01STR (PARSY,PARSS,9) UNITS 
RETURN 


IF COM.PRINT GT 15 
PRINT 1 LINE WITH BOE(T) AND TIME.¥ AS FOLLORS 
BDE (xx) NOT RESTRICTED AND GROERED THE BATTALIGN NOT TQ MOVE AT smo. sre 
ALWATS 
LET FLAG#? 
LET AODR.STORE = ADRSEE 
LET T = ADRSEE 
CALL GEN. MOVE. DECISIGN.MSG (PHARON, GROER.T.CRIT,P.z.TIME) YIELDING MSG 
LET DEST.CGDE (MSG) = BN.LEVEL 
LET MSG. TYPE (MSG) =BDE.OIR.BN.NOT. TO. MOVE 
SCHEDULE A COMMG.ATTEMPT (ORIG. MSG) IN COMON.DISTR(PARSG.PARS7, 7) UNITS 
RETURN 


IF BOECUR (BODE (T)) GE BOELO (BOE (T)) 


IF COM.PRINT GT 15 
PRINT 1 LINE WITH BOE(T) ANO TIME.V THUS 
BOE (x=) IS RESTRICTED AND 1S REQUESTING PERMISSION TO MOVE AT xmrocee, sererere se 


oo 





151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 


ALWAYS 
LET FLAG = 19 
LET T#RRAPCINT (NO.BOE.UNIT (BODE (T))) 
LET ADOR.STORE = RAARPOINT (NC.OIV.UNIT (DIV (T))) 
CALL GEN. MOVE.DECISION.MSG (PHARGH, CROER,T,CRIT,P.2Z. TIME) YIELOING MSG 
LET DEST.COODE (MSG) = OIV.LEVEL 
LET MSG.TYPE (MSG) = BOE.O1V.REQ.PERM.TO.mMOVE 
SCHEOULE A COMMO.ATTEMPT (ORIG,MSG) IN COMO3. DISTR (PARSY,PARSS,9) UNITS 
RETURN 
EESE 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH BOE (T) AND TIME.V THUS 
BOE (xx) IS RESTRICTED ANO GROERED THE REQUESTING BN NOT TO MOVE AT mmserse, v0 
ALWAYS 
LET FLAG = 20 
CALL EXIT(OROER,T, CRIT, P.Z. TIME, FLAG) 
LET ADOR.STORE = ADRSEE 
LET T = ADRSEE 
CALL GEN.MOVE.DECISION.MSG (PHAROW, ORDER, T,CRIT,P.Z. TIME} YIELOING MSG 
LET DEST.CODE (MSG) = BN.LEVEL 
LET MSG. TYPE (MSG) = BOE.OIR.BN.NOT.TO. MOVE 
SCHEDULE A COMMO.ATTEMPT (ORIG, MSG) IN COMOY.DISTR(PARS6,PARS?7,7) UNITS 
RETURN 
END 
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APPENDIX L 


ROUTINE DEC.O1V 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.Y THUS 
ENTERED DEC.DIV ROUTINE AT TIME. V = voce, non 
ALWAYS 
LET TEXT (x) = TEXT. POINTER 
LET PHAROW = TEXT (1) 
LET ORDER = TEXT (2) 
LET T = TEXT (3) 
LET CRIT = TEXT (4) 
LET P.Z.TIME = TEXT (5) 
LET TEXT (=) =O 
IF BDEREQST (BDE(T}) 20 AND TYPE EQ BOE.DIV.REQ. PERM. TC. MOVE 
LET CRIT#5 
LET DIVCUR (DIV (T)} sDIVCUR (DIV(T)} + BDENT (BDE (T)) 
LET DIVREQST (BDE (T)) #1 
ALWAYS 
IF COM.PRINT GT 15 
PRINT 1 LINE WITH DIV(T) AND TIME.Y THUS 
OLY (x) NOT RESTRICTED AND GAVE BDES PERMISSION TO MOVE AT sxmocn, serene 
ALRAYS 
FOR EACH BOE.COMMANDER IN DIVISION(DIV(T)), 00 
LET FLAG=22 
LET T#RRRPOINT (NO.8DE.UNIT (BDE. COMMANDER) ) 
LET ABDOR.STORE = T 
CALL GEN. MOVE.DECISION. MSG (PHAROW, ORDER, T,CRIT,P.Z.TIME) YIELDING MSG 
LET DEST.CODE (MSG) = BOE.LEVEL 
LET MSG. TYPE (MSG) «DIV.GAVE.8D0E. PERM. TO. MOVE 
SCHEDULE A COMMO.ATTEMPT (ORIG, MSG) IN COM20.DISTR(PAR71,PAR72,7) UNITS 
LOOP 
RETURN 
END 
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APPENDIX M 


ROUTINE EXIT(GROER,T, CRIT, P.Z. TIME, FLAG) 


IF CRIT NE O AND CRIT LE 3 
LET CRIT = CRIT - 1 
CALL AIR. COMMO(T, CRIT) 
LET CRIT = CRIT + 2 
RLWAYS 
IF (GRDER#=Q0 GR GROER=2) ANO P.Z.TIME=NG 
SCHEDULE A PHAZ.CHK IN 60 UNITS LET P.Z.TIMESYES 
ALWAYS 
IF ORDER=2 LET ORDER=NO 
ALWAYS 
IF COM.PRINT GT 20 PRINT 1 LINE WITH TIME.VY ANO FLAG THUS 
GUT OF DECISION AT mum. eee THROUGH EXIT xx 
ALWAYS 
RETURN 
ENO 


re 





woowrauvle wh = 


APPENDIX N 


ROUTINE GEN. MOVE. DECISION.MSG (PHAROW, ORDER. T,CRIT,P.Z.TIME) YIELDING MSG 


CREATE A MESSAGE CALLED MSG 
RESERVE TEXT (a) AS S 
LET MSG. TEXT (MSG) TEXT (x) 
LET TEXT (1) =PHARGH 
LET TEXT (2} =OROER 
LET TEXT (3) =T 
LET TEXT (8) sCRIT 
LET TEXT (S) sP.Z. TIME 
LET ADORESSEE (MSG) 2AOOR. STORE 
LET LENGTH. MSG (MSG) 230.0 
LET UST. SENO. TIME (MSG) =TIME.V + 1200.0 
LET MSG.NO (MSG) = NXT.MSG.NO (FMTANK.LIST (GRIG)) 
ADD 1 TO NXT.MSG.NO(FMTANK.LIST (ORIG) ) 
IF COM.PRINT GT 15 
SKIP 1 LINE 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
ssaaesEXECUTING GEN.MOVE.DECISION.MSG ROUTINE AT TIME. Vanmnn, moc 
PRINT 1 OOUBLE LINE WITH MSG.NO (MSG), GRIG, ADDRESSEE (MSG), TEXT(s), 
PHARGW, ORDER, T, CRIT. AND FLAG THUS 
MSG.NG wwe FROM uxxxxscm TO uannnnnx TEXT nooo = PHARCHW xx 
un 6 Tome «CRIT xxx RETURN x 
ALWAYS 
LET TEXT (=) =O 
LET FLAG = 0 
RETURN 
END 
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APPENDIX O 


ROUTINE COM.MAIN 
RESERVE OUMMY (») AS 1 
CALL GUILONETS 
CALL CHECKNETS 
CALL BNETTBL 
CALL COMMGEAR 
CALL COMMCHECK 
CALL INITIALIZE 
LET FMNET = F.ETHER 
SCHEOULE A OUMP.MAILBAG IN 600.0 UNITS 
SCHEOULE A MSG.GEN(FMNET) IN COMO!.O1STR (PARSO,PARS1,1) UNITS 
IF COM.PRINT GT e5 
START NEW PAGE 
LIST ATTRIBUTES OF EACH 8. MVR.COR 
IF LINE.V GT 20 
START NEW PAGE 
ALWATS 
LIST ATTRIBUTES OF EACH UNIT IN BLUE.ALIVE 
ALWATS 
START NEW PAGE 
RETURN 
END 


104 





oor oue wh = 


APPENDIX P 


ROUTINE BUILONETS 
DEFINE 1, J, K, NALTFR, NETNC, NFMN, NONETS, NORELAY, NPRI, NASUB, NICK, TKALT, 
AND TKHOLO AS INTEGER VARIABLES 


READ NONETS, NORELAY 
IF NONETS IS EQUAL TO ZERC, 
GO 10 x3 
OTHERWISE 
FOR 1 = 1 T@ NONETS, O08 
LET NETNO = QO ‘*DONE TO AID ERRSR IDENTIFICATION’ * 


REAO NFMN, NASUB, NALTFR 

READ NTCK AND NPRI 

IF NTCK 1S NOT EQUAL TO NFMN, 
GO To ERAGR 


“OTHERWISE 


CREATE AN FMNET 
FILE FMNET IN THE ETHER 
FOR J#1 TG NRSUB, O00 
READ TKHOLD 
CREATE A SUBSCRIBER 
LET TFC.WAITING (SUBSCRIBER) = 0 
LET OWN.NET (SUBSCRIBER) = FMNET 
LET OWN. TANK (SUBSCRIBER) = RARPOINT (TKHOLD) 
FILE SUBSCRIBER IN CEQI.LIST (FMNET) 
LogpPp 
LET NUM.NETI(FMNET}) = NFMN 
LET FM.I1OLE (FMNET} = IDLE 
LET FMPRI.FREQ(FMNET) = NPRI 
IF NALTFR 1S EQUAL TS ZERO, 
LET FMALT.FREQ(FMNET) = 0 
GO TO X4¥ 
OTHERWISE 
READ NETNO 
IF NETNG 1S NOT EQUAL TO NFMN, 
GO TG ERROR 
OTHERWISE 
RESERVE FM.PUSHES («} AS (NALTFR * 1) 
LET FMALT.FREQ(FMNET) = FM.PUSHES (™) 
LET FM.PUSHES(1}) = NALTFR 
FOR K=i TO NALTFR, OC 
READ TKALT 
LET FM.PUSHES (K*1) = TKALT 
Loop 
**CONTINUE ** 
LET FM.PUSHES(™~) = 0 


Loop 


**CONTINUE ** 


RETURN 


‘ERROR' ‘ "CONTINUE °° 


OS 





ENO 


PRINT 2 LINES WITH NFMN, NTCK ANO NETNO LIKE THIS 
ERROR, NET NUMBER «xxx, SUBS. NUMBER xn, 
ANO ALT.FREQ NET NUMBER xxxx ARE INCONSISTENT 
SKIP 1 LINE 
PRINT 1 LINE WITH NONETS AND NORELAY LIKE THIS 
NONETS sxx, NOREAL Y a vcocsere 
PRINT 1 LINE WITH NFMN, NRASUB, NALTFR LIKE THIS 
NF MNesoue, NRASUBssoae, NAL TP Ra sec 
PRINT 1 LINE WITH NTCK,NPRI,TKHOLD LIKE THIS 
NTCKaxsex, NPRo ase, TKHOL De seoccece 
STOP 
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APPENDIX Q 


ROUTINE CHECKNETS 
DEFINE I AND NFMALT AS INTEGER VARIABLES 


FOR ERCH FMNET IN THE ETHER, O00 

IF LINE.V GT 57 START NEW PAGE 

ALWAYS 

PRINT 1 LINE WITH NUM.NET(FMNET) LIKE THIS 
FOR NET NUMBER worse 

SKIP 1 LINE 

‘PRINT 1! LINE WITH FMPRI.FREQ(FMNET) LIKE THIS 
PRIMARY FREQUENCY 15 2oooooooe KHZ 


IF FMALT.FREQ(FMNET) IS NOT EQUAL TO ZERO, 
LET FM.PUSHES (x) = FMALT.FREQ (FMNET) 
LET NFMALT = FM.PUSHES (1) 
PRINT 1 LINE WITH NFMALT LIKE THIS 
THERE ARE xx ALTERNATE FREQUENCIES 
FOR I = 1 TO NFMALT. CO 
PRINT 1 LINE WITH FM.PUSHES (1*1) LIKE THIS 
Dd Oe DC Od Od Oe Oe OG OO 
LOOP 
OTHERWISE 
PRINT 1 LINE LIKE THIS 
THERE ARE NO ALTERNATE FREQUENCIES 
ALWAYS 
PRINT 1 LINE WITH N.CEQI.LIST (FMNET) LIKE THIS 
THERE ARE xxxxx SUBSCRIBERS IN THE NET, 
SKIP 3 LINES 
Loop 
RETURN 
ENO 
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APPENDIX R 


ROUTINE BNETTBL 
DEFINE I AND J AS INTEGER VARIABLES 
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RESERVE NETTBL {x,™) AS N.ETHER BY x 
RESERVE RPOINT (x,») AS N.ETHER BY 
LET I = 1 
FOR EVERY FMNET IN THE ETHER, 06 2 
RESERVE NETTBL(I,™) AS N.CEQI.LIST (FMNET) 
RESERVE RPOINT(],™) AS N.CEOI.LIST (FMNET) 
LET J = 1 
FOR EVERY SUBSCRIBER IN CEOI.LIST(FMNET), 00 
LET NETTSL{I,J) = TK. 10 (OWN. TANK (SUBSCRIBER) } 
LET RPOINT(1,J} = SUBSCRIBER 
LET J = J)? 1 
LOOP 
LET T 2] + 1] 
LOOP 


IF LINE.V GT 62 START NEW PAGE 
ALWAYS 
PRINT 1 LINE LIKE THIS 
THE ITH ROW OF ARRAY NETTBL CONTAINS THE SU8SCRIBERS IN THE ITH RADIO NET 
LIST NETTBL 
SKIP 2 LINES 
IF LINE.V GT 688 START NEW PAGE 
RLWAYS 
PRINT 1 DOUBLE LINE LIKE THIS 
THE ITH ROW OF THE ARRAY RPSINT CONTAINS THE ADDRESS POINTERS CF THE SUBSCR 


IBERS IN THE ITH RADIO NET 


LIST RPOINT 

SKIP 2 LINES 
RELEASE RPOINT («, »)} 
RETURN 


ENO 
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APPENDIX § 


ROUTINE COMMGEAR 
DEFINE I, J, NORAD, NRADIC. TANKS, AND TKNO AS INTEGER VARIABLES 


REAO NRADIC. TANKS 


FOR I = 1 TG NRADIC. TANKS, 06 
READ TKNG, NORAD 
CREATE A MYSET 
LET TANK # RRAPOINT (TKNO) 
LET FMTANK.LIST (TANK) = MYSET 
FOR J = 1 TO NORAD, O68 
CREATE AN RT. CONFIG 
FILE RT.CONFIG IN RAD.LIST (MYSET) 
READ RAD. TYPE (RT. CONFIG) AND MODE. OPERATION (AT. CONFIG) 
READ ANT. TYPE (RT. CONFIG) 
IF ANT. TYPE (RT. CONFIG) IS LESS THAN ZERG, 
**DIRECTIGNAL ANTENNA INPUT *’ 
PRINT 3 LINES WITH TKNO, NGRAD, J, RAD. TYPE (AT.CONFIG) , 
MODE.OPERATION(RT.CONFIG) ANO ANT. TYPE (RT.CONFIG) LIKE THIS 
ON TANK meme, WITH A TOTRL OF xunx RADIOS, FOR RADIO SET 
NUMBER uxxx, OF TYPE xunn, MOQE «une, AND ANTENNA rence 
w~nn--TMIS SET GPERATES A DIRECTIGNAL ANTENNA 
STOP 
ALWAYS 
READ REM.ANT (AT. CONFIG) 
IF REM.ANT (RT. CONFIG) IS NOT EQUAL TC ZERO, 
**REMGTED ANTENNA INPUT’”® 
PRINT 3 LINES WITH TKNG, NGRAD, J, RAD. TYPE (RT. CONFIG), 
MODE .GPERATIGN(RT.CONFIG3) ANDO ANT. TYPE (RT.CONFIG) LIKE THIS 
ON TANK uxx, WITH A TOTAL GF xxx RADIGS, FOR RADISC SET 
NUMBER uuxme, GF TYPE xuuxe AND MODE momm, WITH ANTENNA moe 
wornnTHIS SET OPERATES WITH A REMGTED ANTENNA 
STOP 
REGAROLESS 
LOGP 
LOoP 


*°USE NET STRUCTURE INPUT PREVIGUSLY TG ASSIGN EQUIPMENTS*" 
“°TG NETS"° 


IF LINE.V GT 30 START NEW PAGE 
ALWAYS 

PRINT Y LINES AS FOLLOWS 
RRRPGINT (TK. IO (TANK) 3 = TANK 
FATANK.LIST (TANK) = MYSET (TANK) 


FOR EVERY FMNET IN THE ETHER, 06 
PRINT 1 LINE WITH NUM.NET (FMNET) ANO FMNET AS FOLLOWS 
NUM.NET(FMNET) = sx FMNET POINTER = sesesesesesesene 
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SKIP 1 LINE 
FOR EVERY SUBSCRIBER IN CEOI.LIST(FMNET), 00 
LET TANK = GOWN. TANK (SUBSCRIBER) 
IF FMTANK.LIST (TANK) EQUALS ZERO, 
GS TO ERRGA! 
OTHERWISE 
LET MYSET = FMTANK.LIST (TANK) 
LET NXT.MSG.NQ(MYSET) = (TK. 1D (OWN. TANK (SUBSCRIBER)) = 1000) * 1 
FOR EVERY RAT.CONFIG IN RAD.LIST (MYSET), 06 
IF OWN.SUBSCRIBER(RT.CONFIG) EQUALS ZERO, 
GO TO JOIN.NET 
OTHERWISE 
LaoP | 
GO TO ERROR? 


“JOIN.NET* ‘°PLACE THIS EQUIPMENT ON THE NET** 
LET OWN.SUBSCRIBER(RT.CONFIG) = SUBSCRIBER 
PRINT 1 OGUBLE LINE WITH TK.ID (TANK), TANK, FMTANK.LIST (TANK), RT.CONFIG, 

RND OWN.SUBSCRIBER(RT.CONFIG) AS FOLLSKS 


TK. ID (TANK) 253030030 TANK 2 5e a a oe 30 oe oe 3 FMTANK. LIST (TANK) mene seo se se 030 
RT. CONF I Gasca SUBSCR I BER= xe 90 soe se nce 00 
LOoP 
SKIP 1 LINE 
LOGP 


SKIP 5 LINES 
RETURN 


‘ERRGRI* ‘°*ERROR WHEN TANK HAS NO RADIOS** 
PRINT 1 LINE WITH TK.IO(TANK) ANDO NUM.NET (FMNET) LIKE THIS 
ERROR, TANK xxx ON NET xxxx HAS NO RADIOS 
STOP 


‘ERROR2* °*ERRGR WHEN TANK HAS TOO FEW RADICS FOR ASGD. NETS** 
PRINT 1 LINE WITH TK.IO (TANK) AND NUM.NET(FMNET) LIKE THIS 
ERROR, TANK »xxx HAS TOO FEW RADIOS TO BE ON NET xx 

STOP 


END 
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APPENDIX T 


ROUTINE COMMCHECK 


FOR EACH TANK IN BLUE.ALIVE, 06 
IF LINE.V GT 60 START NEW PAGE 
ALWAYS 
IF FMTANK.LIST{(TANK) IS EQUAL TO ZERO, 
PRINT 2 LINES WITH TK. JO(TANK), X.CURRENT (TANK), 
Y. CURRENT (TANK) AND Z.CURRENT (TANK) LIKE THIS 
TANK woesese 
LOCATED AT xem, munmeu, muemecme HAS NG COMMO EQUIPMENT 
GG TO X!1 


OTHERWISE 
PRINT 2 LINES WITH TK. IO (TANK), X.CURRENT (TANK) , 

Y. CURRENT (TANK) AND Z.CURRENT (TANK) LIKE THIS 

TANK xxscr 

LOCATED AT munnlu, mom, mums HAS THE FOLLGWING COMMG 
SKIP 1 LINE 


LET MYSET = FMTANK.LIST (TANK) 
FOR ERCH RT.CONFIG IN RAD.LIST (MYSET), DC 

PRINT 2 LINES WITH RAD. TYPE (RT.CONFIG) ANO 
MGDE.CPERATIGN(RT.CONFIG) LIKE THIS 

RADIG TYPE = mux 

o<--- MODE CF SPERATIGN @ won 

IF ANT.TYPE (RT.CONFIG) IS LESS THAN ZERO 
PRINT 1 LINE LIKE THIS 

ooore THIS SET GPERATES A DIRECTIONAL ANTENNA 
STOP 

GTHEARWISE 
PRINT 1 LINE WITH ANT.TYPE (RT.CONFIG) LIKE THIS 
ANTENNA TYPE = mover 

IF REM.ANT(RT.CONFIG) IS NOT EQUAL TG ZERO 
PRINT 1 LINE LIKE THIS 

enm---THIS SET GPERATES A REMOTED ANTENNA 

**Gc T8 NC.NET*° 

STOP 

OTHERWISE 
PRINT 1 LINE WITH X.CURRENT (TANK), Y.CURRENT (TANK) , 

AND Z.CURRENT (TANK) LIKE THIS 
ANTENNA LOCATION: X 2 muneru, TY os mene, Zs MOC, M 


*NO.NET® * *CONTINUE °° 
PRINT 1 LINE WITH NUM.NET (OWN. NET (OWN. SUBSCRIBER (RT. CONFIG) )) 
LIKE THIS 
222-- THIS SET IS TUNED TO NET NUMBER xeon 
SKIP 1 LINE 
LOOP 


*xX1°  *“CONTINUE** 


gee 











SKIP S LINES 


LOaP 
RETURN 
END 
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APPENDIX U 


ROUTINE INITIALIZE 
OEFINE I, J, K. ANO NPRI AS INTEGER VARIABLES 


READ PAROO, PAROI, PARO2, PARO3, PAROY, PAROS, PAROS, PARO7, PARO8, AND PAROS 
READ PARIO ANO PARI! 
READ PARSO, PARSI, PARS2, PARS3, PARSY, PARSS, PARSG, PARS7, PARS8, AND PARSS 
READ PARSO, PAR6S1, PARG2, PAR63, PARGY, PARGS, PARGS, PARS7, PARG8, AND PARGY 
READ PAR70, PAR71, AND PAR72 es 
START NEW PAGE 
IF COM.PRINT GT 10 
CALL STAT. OUMP 
CALL SSTAT.OUMP 
ALWAYS 
READ CG.LG.80 AND CG.UP.B0 
READ BN.LG.80 AND BN.UP.BO 
READ BOE.LS8.80 ANDO BOE.UP.80 
READ O1Y.LG.80 AND OLV.UP.BD 
RETURN 
ENO 


ie 
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APPENDIX V 


ROUTINE STAT.OUMP 


LIST ATTRIBUTES GF EACH COMPANY. COMMANDER 
LIST ATTRIBUTES OF EACH BN.COMMANDER 

LIST ATTRIBUTES OF EACH BOE.COMMANDER 
LIST ATTRIBUTES OF EACH DIV.COMMANDER 
SKIP 2 LINES 

RETURN 

END 
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APPENDIX W 


ROUTINE SSTAT.OUMP 
DEFINE I AND J AS INTEGER VARIABLES 
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FOR I «= 1 TO BBOE, O06 
IF LINE.V GT 70 START NEW PAGE 
ALWAYS 
PRINT 1 LINE WITH I AS FOLLOWS 
BRIGADE xx 
PRINT 3 LINES AS FOLLOWS 
BDEMSN BOECUR BOEWT BOELO BOEGO 


PHZLINES : 
FAR J=1 TG PHZLINES, 08 
PRINT 1 LINE WITH J, BOECGRO(I,J.1), BOECCADI(I,J.2), 
BDECCAD(1,J,3), BOECCAO(],4,4), ANO BOECGRO(I,4,5) THUS 
MM, ye MM ae be od wt yO od CO 
LOaP 
SKIP 2 LINES 
LOaP 
FOR I=1 TO BBN, O6 
IF LINE.VY GT 70 START NEW PAGE 
ALWAYS 
PRINT 1 LINE WITH I AS FOLLOWS 
BATTALION xx 
PRINT 3 LINES AS FOLLOWS 
BMSN BNCUR BNWT BNLO BNGC 


PHZLINES ° 
FOR J=1 TO PHZLINES, 06 
PRINT 1 LINE WITH J, BNCGRO(I.J.3), BNCORD(1,4,2), 
BNCORO (1,J,3)., BNCORO(!,J.4),. AND BNCOROD(1,4,5) THUS 
MM, De 2.8 8 8. | ye oe DO OC we ot 
LOOP 
SKIP 2 LINES 
LOOP 
FOR I=i1 TG BLCOMP, D8 
IF LINE.V GT 70 START NEW PAGE 
ALWAYS 
PRINT 1 LINE WITH I AS FOLLOWS 
COMPANY xx 
PRINT 3 LINES AS FOLLOWS 
CMSN CONT 


PHZLINES ° 
FOR J=1 TO PHZLINES. 06 
PRINT 1 LINE WITH J, COCOROD(1.J.1), ANDO COCORD(I,J,2) THUS 


mee OO Wt CC Oe 


LOOP 


ES 





SKIP 2 LINES 
Loop 

RETURN 

END 
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APPENDIX X 


UPON COMMO.ATTEMPT (ORIG, MSG) 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.¥Y THUS 
ENTERED COMMG.ATTEMPT EVENT AT TIME. Veoocse, seoere 
ALWAYS 
LET CALLNET = 0 
LET CALLSUB = 0 
LET CALLAT = 0 
LET ADRSEE = ADDRESSEE (MSG) 
LET OR.TANK = TK.I0(GRIG) 
LET DE.TANK = TK.ID(ADRSEE) 


**CHECK THAT BOTH TANKS HAVE RADIOS ** 
IF FMTANK.LIST (ORIG) 1S EQUAL TO ZERO, 
GO TO ERA 
OTHERWISE 
IF FMTANK.LIST(ADRSEE) 1S EQUAL TO ZERG, 
GO TO ERRI 
OTHERWISE 


**CHECK THAT DESTINATION AND ORIGINATOR ARE ON SAME NET*® 
LET MYSET = FMTANK.LIST (ORIG) 
FOR EVERY RT.CONFIG IN RAD.LISTI(MYSET), DO 
LET FMNET = OWN.NET (OWN. SUBSCRIBER (RT .CONFIG)} 
FOR EVERY SUBSCRIBER IN CEOI.LIST(FMNET), DO 
IF OWN. TANK (SUBSCRIBER) = ADRSEE, 
LET CALLAT = RT.CONFIG 
LET CALLSUB = SUBSCRIBER 
LET CALLNET = FMNET 
IF FM. IDLE (FMNET) IS EQUAL TO IDLE, 
GO TO TRY.CALL 
OTHERWISE 
REGAROLESS 
LOOP 
Loop 
IF CALLAT 35 NOT EQUAL TO ZERO, 
GO TO NET.BUSY 
OTHERWISE 
GO TO ERRe 


**TRY TG CALL THE DISTANT STATION** 
‘TRY. CALL ° 
IF COM.PRINT GT 25 
PRINT 1 LINE WITH MSG, CALLNET, ORIG, ANO ADRSEE AS FOLLOWS 
a<cer- MSGarooowem = FMNET sso ORIGINATOR xxx = RDDRESSEE mcs seocse se oc ne 
ALWAYS 
LET FM. IOLE (CALLNET} = BUSY 
LET IN. USE (CALLRT) = BUSY 
LET NET.NO = NUM.NET (CALLNET) 


JBL 





LET MYSET = FMTANK.LIST (ADRSEE) 
FOR EVERY RT.CONFIG IN RAD.LIST(MYSET), 00 
IF OWN.NET (OWN. SUBSCRIBER (RT.CONFIG)) = CALLNET, 
GO T8 KEY.MIKE 
OTHERWISE 
LOapP 
GO TO NO.ANS 


**CHECK IF COMMO IS TECHNICALLY FEASIBLE*® 
"KEY. MIKE ° 
LET RECRT = AT. CONFIG 
IF COM.PRINT GT 25 
PRINT 1 LINE WITH CALLAT AND RECRT AS FOLLOWS 
oooee TRANSM] TTER/CALLAT a xcocse oe vee vee RECE I VER/RECAT = vere serene nee 
ALWAYS 
CALL TECH. COMMO (CALLAT,RECRT) YIELOING ABILITY 


IF ABILITY = ROGER, 
LET IN.USE(RECRT) = BUSY 
LET DELT = LENGTH. MSG (MSG) 
CALL EX. ROUTINE (CALLAT.RECRT) YIELOING ABILITY 
IF ABILITY = JAMMED 
IF C8M.PRINT GT 20 
PRINT 1 OOUBLE LINE WITH MSG.NO(MSG), MSG. TYPE (MSG). NUM.NET (FMNET), 
TK. IO(GRIG), ANDO TK. IO (ADDRESSEE (MSG)) AS FOLLOWS 
MSG.NO xxnonnx OF TYPE xxx ON NET xxx FROM TANK xxx) = TO TANK sone 
o+? JAMMED o> 
SKIP° 1 LINE 
ALWAYS 
SCHEOULE A CHANGE.FREQ(CALLAT,CALLNET,MSG) IN COM15.O0ISTR (PARSS, PAR7O, 2) 
UNITS 
RETURN 
OTHERWISE 
IF COM.PRINT GT 20 
PRINT 1 OGUBLE LINE WITH MSG.NGQ (MSG), MSG. TYPE (MSG), NUM.NET (FMNET), 
TK. IO(GRIG), ANO TK. IO (ADDRESSEE (MSG)) AS FOLLOWS 
MSG.NG xuxnne OF TYPE xxx ON NET 0 = =FAGM TANK xxx = =TO TANK sox 
+++ NORMAL TRANSMISSION +7 
ALWAYS 
SCHEDULE AN ENO. XSMN(CALLAT,RECRT, CALLNET.MSG) IN OELT UNITS 
RETURN 
OTHERWISE 


IF ABILITY = NEGATIVE 
**OISTANT STATION OGES NOT RESPOND TO CALL** 
*NO.ANS* 
IF CO8M.PRINT GT 20 
PRINT 1 OOUBLE LINE WITH MSG.NO(MSG), MSG. TYPE (MSG). NUM.NET (FMNET), 
TK.IO(GRIG), AND TK. ID (AQORESSEE (MSG)) AS FOLLOWS 


118 





101 
102 
103 
108 
105 
106 
107 
108 
109 
110 
111 
lie 
mS 
118 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
123 
130 
131 
132 
133 
134 
ros 
136 
137 
138 
139 
14D 
141 
142 
183 
144 
185 
186 
147 
148 
149 
150 


MSG.NO xxxnnn OF TYPE «xm GN NET xxx FROM TANK x0 «TG TANK scx 
+++ NG RESPONSE TO CALL +++ 

SKIP 1 LINE 

ALWAYS 
LET TFC.WAITING (CALLSUB) = WAITING 
SCHEDULE A NO.CONTACT (CALLAT,CALLNET,MSG) IN COM14.DISTRI(PARG7,PAR68,2) UNITS 
RETURN 
OTHERWISE 


IF ABILITY * MARGINAL 
LET IN.USE(RECRT) # BUSY 
LET DELT = 2«LENGTH. SG (MSG) 
CALL EW. ROUTINE (CALLAT,RECRT) YIELDING ABILITY 
IF ABILITY = JAMMED 
IF COM.PRINT GT 20 
PRINT 1 DOUBLE LINE WITH MSG.NO (MSG), MSG. TYPE (MSG), NUM.NET (FMNET), 
TK. I0(GAIG), AND TK. IO (ADDRESSEE (MSG)) AS FOLLOWS 
MSG.NO wxsunn OF TYPE xxx ON NET xx FROM TANK xxx = TO TANK xox 
+e JAMMED ee 
SKIP 1 LINE 
ALWAYS 
SCHEDULE A CHANGE.FREQ(CALLAT,CALLNET.MSG) IN COM15.DISTAR (PARGS,PAR7O, 2) 
UNITS 
RETURN 
OTHERWISE 
IF COM.PRINT GT 2D 
PRINT 1 DOUBLE LINE WITH MSG.NO (MSG), MSG. TYPE (MSG), NUM.NET (FMNET), 
TK.IO0(ORIG), AND TK. ID(ADDRESSEE (MSG}) AS FOLLOWS 
MSG.NGO xonmnne OF TYPE «39000 ON NET sxe) FROM TANK xxx = =TO TANK sex 
+++ MARGINAL TRANSMISSION +++ 
ALWAYS 
SCHEDULE AN END. XSMN(CALLAT,AECRT,CALLNET. MSG) IN DELT UNITS 
RETURN 
OTHERWISE 
G6 TO ERR3 


"NET. BUSY * 
**FILE MESSAGE AND CONTINUE WHEN NET IS BUSY°** 
IF COM.PRINT GT 20 
PRINT 1 D@UBLE LINE WITH MSG.NO (MSG), MSG. TYPE (MSG), NUM.NET (FMNET), 
TK. ID(GRIG), AND TK. ID (ADDRESSEE (MSG)) AS FOLLOWS 
MSG.NO mune OF TYPE «x0 ON NET «00 «=FROM TANK xxx = =6TG TANK xox 
+++  NET-BUSY, MSG FILED IN MAILBAG +++ 
SKIP 1 LINE 
ALWAYS 
FILE THIS MSG IN MAILBAG (MYSET) 
LET TFC.WAITING (CALLSUB) = WAITING 
RETURN 


"*ERROR ROUTINES *’ 


ig 





151 
iSe 
153 
154 
iss 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 


TERRI“ 
PRINT 2 LINES WITH TIME.V, OR. TANK AND DE. TANK LIKE THIS 
AT soocen,un, TANK soe TRIED TG SEND A MESSAGE TO TANK xnnwex 
ONE OF THESE OGES NOT HAVE A RADIO 
STOP 


*“ERRe° 
PRINT 2 LINES WITH TIME.V. GR.TANK, AND DE.TANK LIKE THIS 
AT mom. ome, TANK xem TRIED TO SEND A MESSAGE TO TANK xo 
THESE TANKS ARE NOT ON A COMMON NET 
STOP 


*ERRS* 
PRINT 2 LINES WITH TIME.V, OR. TANK, AND DE.TANK LIKE THIS 
AT woes, TANK xox TRIED TO CONTACT TANK xxx ON THE FM 
AN ERRONEGUS ABILITY VALUE WAS RETURNED BY TECH. COMMG@ 
STOP 
END 
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ARPEBND EX ¥ 


ROUTINE TECH. COMMO(CALLAT,RECRT) YIELDING ABILITY 


IF COM.PRINT GT 25 
PRINT 1 DOUBLE LINE WITH TK. 10 (GWN. TANK (OWN. SUBSCRIBER (CALLRT))3, CALLAT, 
TK. 1D (OWN. TANK (OWN. SUBSCRIBER (RECRT)}),. ANO RECRT AS FOLLOWS 
oo--- MSG FROM TANK xxx TRANSMITTER sno TO TANK soem RECE] VER = wesc sere scr 
+*+ TECH.COMMO +++ 
ALWAYS 
LET ABILITY = COM13.OI1STR(PAROY, PAROS, 2) 
RETURN 
ENO 


ROUTINE EW.ROUTINE (CALLRT,RECRT) YIELOING ABILITY 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
+¢+++¢ ENTERED EW ROUTINE AT TIME = wren nnn +e oes 
SKIP 1 LINE 

ALWAYS 

LET ABILITY = COM13.DISTR (PAROK, PAROS, 2) 

RETURN 

ENO 
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APPENDIX Z 


UPON CHANGE.FREQ (CALLAT, CALLNET, MSG) 


LET FM.IOLE (CALLNET) = IDOLE “ 
LET IN.USE(CALLAT) = IDLE 
LET ORIG = OWN. TANK (OWN. SUBSCRIBER (CALLAT) } 
IF COM.PRINT GT 20 
PRINT 1 DOUBLE LINE WITH TIME.V. TK.JO(ORIG) AND 
NUM.NET (CALLNET) LIKE THIS 


TIME. V erercrere, vane TANK xx, ON NET xxx 
+++ FREQUENCY CHANGE +++ 
SKIP 1 LINE 
ALWAYS 


SCHEDULE A COMMO.RTTEMPT (ORIG,MSG) NOW 


RETURN 
END 


ee 
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APPENDIX AA 


ROUTINE EW. ROUTINE (CALLAT,RECAT? YIELDING ABILITY 
DEFINE ABILITY, CALLAT, RAND RECAT AS INTEGER VARIABLES 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME. VY AS FOLLOWS 
teres ENTERED EW ROUTINE AT TIME = moc, mene teres 
SKIP 1! LINE 

ALWAYS 

LET ABILITY = COM13.0] STR (PARON, PAROS, 2) 

RETURN 

END 


E23 





Oona wnk wn -— 


APFENDIZ. BB 


UPON NO.CONTACT (CALLAT, CALLNET, MSG) 


IF COM.PRINT GT 25 
PRINT 1 LINE WITH TIME.V¥ THUS 
NO CONTACT EVENT ENTERED AT TIME. Vans, mon 
SKIP 1 LINE 
ALWAYS 
LET FM.IOLE(CALLNET) # IDOLE 
LET IN.USE(CALLRT) = IOLE 


CALL SIEZE.NET (CALLNET) 
LET MYSET = FHTANK.LIST (OWN. TANK (OWN. SUBSCRIBER (CALLAT) 3} } 
FILE THIS MSG IN MAILBAG (MYSET) 


RETURN 
ENO 
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APPENDIX CC 


ROUTINE SIEZE.NET (CALLNET) 
OEFINE I, IK, ANO SUBREC AS INTEGER VARIABLES 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
ENTEREO SIEZE.NET ROUTINE AT TIME. Varner, sree 
ALWAYS 
RESERVE TARRAY (x) AS 2xN.CEOI.LIST (CALLNET) 
LET fat 
FOR EVERY SUBSCRIBER IN CEGI.LIST(CALLNET}, 06 
LET MYSET = FMTANK.LIST (OWN. TANK (SUBSCRIBER) ) 
IF N.MAILBAG(MYSET) = 0, GO Ta LOOP 
OTHERWISE 
FOR EVERY MESSAGE IN MAILBAGI(MYSET), O6 
LET ADRSEE = ADDRESSEE (MESSAGE) 
FOR EVERY SUBREC IN CEOI.LISTI(CALLNET}, 00 
IF OWN. TANK (SUBREC) = ADRSEE, GO TO MATCH 
OTHERWISE 
LOOP 
Loop 
GO To LsaP 


“MATCH * 


LET TARRAY (1) = OWN. TANK (SUBSCRIBER) 
LET TARRAY (1*1} = MESSAGE 
UEto) & I+2 


“LOOP * 
LOOP 


IF I = 1 
IF €@M.PRINT GT 20 
PRINT 1 DOUBLE LINE WITH TIME.V AND NUM.NET(CALLNET) AS FOLLOWS 
TIME. V  peocscree, serene NET noex 
*o+ EMPTY MAILBAG ++ 
SKIP 1 LINE 
ALWAYS 
RELEASE TARRAY (3 
RETURN 
OTHERWISE 
LET RNI # REAL.F( (1-1) 72) - 0.000! 
LET IK = TRUNC.F (COM12.DISTR(PARG6S,RNI,8) + 1) 
LET 6RIG = TARRAY((2e1K) - 2) 
LET MSG = TARRAY (21K) 
LET MYSET = FMTANK.LIST (ORIG) 
IF COM.PRINT GT 20 
PRINT 1! OOUBLE LINE WITH MSG.NO (MSG), MSG. TYPE (MSG), NUM.NET (CALLNET), 
TK. 10 (GQRIG), AND TK. ID(AODRESSEE (MSG}3} AS FOLLGNS 


2 





MSG.NO xxx CF TYPE sux ON NET soe PROM TANK sxx = TO TANK xox 
see SIEZE CNET +++ 
SKIP 1 LINE 
ALWAYS 
REMOVE THIS MSG FROM MAILBAG (MYSET) 
SCHEDULE A COMMO.ATTEMPT (CRIG, MSG) NOW 
RELEASE TARRAY (x) 
RETURN 
ENO 
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APPENDIX DD 


UPON ENO. XSMN (CALLAT, RECAT, CALLNET, MSG) 


LET GRIG = OWN. TANK (OWN. SUBSCRIBER (CALLAT) } 
LET ADRSEE = RODRESSEE (MSG) 
LET TYPE = MSG. TYPE (MSG) 
LET TEXT.POINTER = MSG. TEXT (MSG) 
LET MSGNO = MSG.NO (MSG) 
LET DEST = DEST.COOE (MSG) 
IF COM.PRINT GT 15 _ 
PRINT 1 LINE WITH TIME.V AS FOLLCHS 
ENO.XSMN EVENT ENTERED AT TIME. Varner, serene 
PRINT 1 DOUBLE LINE WITH MSG.NG (MSG), MSG. TYPE (MSG), NUM.NET (CALLNET), 
TK. IO(@RIG}, AND TK.10 (ROORESSEE (MSG))} AS FELLOWS 
MSG.NG momo GF TYPE xxx GN NET wm FROM TANK om = =0TO TANK sone 
+++ ENO.XSMN COMPLETED +++ 
ALKAYS 
IF COM.PRINT GT 25 
PRINT 1 LINE WITH DEST.CGDE (MSG), LENGTH. MSG (MSG), ANO LST.SEND. TIME (MSG) 
THUS 
~----DEST. CODE xxx MSG. LENGTH xem KILL. TIME sercocoe, oe 
PRINT 1 LINE WITH MSG, CALLNET, GRIG. AND ADRSEE AS FOLLOWS 
moon MS Gann FMNE Tannen GRIGINATGRaxecxmxxm ADDRESSEE mxcocmcsereenex 
PRINT 1 LINE WITH CALLRT ANDO RECRT AS FOLLOWS 


m~--=TRANSMI TTER/CALLRT 2 cone epee oe RECEIVER/RE CRT 2 xcocreaeoe ne oe 9 
PRINT 1 LINE WITH TEXT.POINTER AS FOLLGWS 
-=-<- TEXT POINTE Ra scrercsece se 050 
ALWATS 
SKIP 1 LINE 


DESTROY THE MESSAGE CALLEO MSG 


IF DEST LT 10 GO TO FINISHED 
BESE 
IF CO.IS.DEST.OF.MSG CALL CO.MSG GO TCO COMPLETED 
ELSE 
IF BN.IS.DEST.GF.MSG CALL 8N.MSG GO TC COMPLETED 
CoG 
If B80E.1S.DEST.COF.MSG CALL BOE.MSG GO TG COMPLETEO 
Esc 
IF OIV.18.D0EST.OF.MSG CALL DIV.MSG GO TO COMPLETEO 
ELSE 
PRINT 1 LINE AS FOLLOWS 

AN ERRGR HAS CCCURRED IN THE TYPE CODE. 
RETURN 


*“COMPLETED* 


LET TEXT (x) = TEXT. POINTER 
RELEASE TEXT (x) 


“FINISHED ° 


LET FM.IOLE (CALLNET) =» IDOLE 


L257 





= 





LET IN.USE (CALLRT) = IDOLE 
LET IN.USE (RECRT) = IDLE 
SKIP 1! LINE 


CALL SIEZE.NET (CALLNET) 


RETURN 
END 
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APPENDIX EE 


ROUTINE CO.MSG 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
EXECUTION OF CO.MSG ROUTINE AT TIME, Vase, sense 
ALWAYS 
IF TYPE LT 20 CALL DEC.CO GO TO EXIT! 
EtSG 
“EXIT1* 
RETURN ee 
END 


ROUTINE BN.MSG 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
EXECUTION OF BN.MSG ROUTINE AT TIME, Varese, serer 
ALWAYS 
IF TYPE LT 30 CALL DEC.BN GO TO EXIT! 
ELSE 
*EXi T° 
RETURN 
ENO 


ROUTINE 8DE.MSG 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V AS FOLLOWS 
EXECUTION OF BOE.MSG ROUTINE AT TIME. Vuseresece, noes 
RLWATS 
IF TYPE LT 4O CALL DEC.BOE GO TO EXIT! 
ELSE 
“EXITI* 
RETURN 
ENO 


ROUTINE DIV.MSG 


IF COM.PRINT GT 20 
PRINT 1 LINE WITH TIME.V THUS 
ENTERED DIV.MSG ROUTINE AT TIME.V © xrererere, reser 
ALWATS 
CALL OEC.DIV 
RETURN 
ENO 
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APPENDIX FF 


UPON OUMP.MAILBAG 


IF COM.PRINT GT 25 
PRINT 1 LINE WITH TIME.V THUS 
DUMP MAILBAG EVENT ENTERED AT TIME.V = serenerene, wren 
SKIP 1 LINE 
ALWAYS 
FOR EVERY TANK IN BLUE.ALIVE, 06 
IF FMTANK.LIST (TANK) IS EQUAL TO ZERO, 
GO TO LOOP a 
OTHERWISE 
LET MYSET = FMTANK.LIST (TANK) 
IF N.MAILBAG(MYSET) EQ O GO TO LOOP 
EESE 
FOR EVERY MESSAGE IN MAILBAG (MYSET), DO 
IF LST.SENO. TIME (MESSAGE) IS LESS THAN TIME.V, 
REMOVE THE MESSAGE FROM MAILBAG (MYSET) 
CALL ABORT. MSG (TANK, MESSAGE) 
REGAROLESS 
LOOP 


‘LOOP * 
LOOP 


SKIP 1 LINE 
SCHEDULE A OUMP.MAILBAG IN 600.0 UNITS 


RETURN 
END 
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APPENDIX GG 


ROUTINE ABORT.MSG (TNK, MSG) 


IF COM.PRINT GT 20 
PRINT 1 DOUBLE LINE WITH TIME.V, TK. IO(TNK), MSG.NO(MSG), 
MSG. TYPE (MSG), AND TK.ID( ADDRESSEE (MSG)) LIKE THIS 
TIME. VY  vepepencne . ne TANK xux, MSG.NG xunooee, TYPE «a, TG TANK num 
+++ ABORTED DUE TO KILL TIME re 
SKIP 1 LINE 
ALWAYS 


DESTROY THE MESSAGE CALLED MSG 
RETURN 
END 
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AE PENDEX HA 


UPON MSG. GEN (FMNET) 
OEFINE ADRSEEK, ORT.TEMP, 1, NUMBNET, ORT.TEMP, ORTK, AND ANL AS INTEGER 


VARIABLES 


IF N.CEQI.LIST (FMNET) LT 2 
PRINT 1 LINE WITH FMNET AS FOLLOWS 
THERE IS ONLY ONE SUBSCRIBER ON FMNET rocrerene, serererere 
GO TG LOOP1 

ELSE 

LET RNL = N.CEOI.LIST (FMNET) 

LET ORTK = COMO8.DISTR (PARO2, ANL, 2) 


*DESTGEN* 


LET ADRSEEK = COMO8. DISTR (PARO2, ANL, 2) 
IF ADRSEEK IS EQUAL TO ORTK, GO TO DESTGEN 
OTHERWISE 


CREATE A MESSAGE CALLED MSG 

LET I = NUM.NET (FMNET) 

LET ADDRESSEE (MSG) = RRRPOINT (NETTBL (1, ADRSEEK) ) 

LET LST.SEND.TIME (MSG) = TIME.V * 250.0 

LET LENGTH.MSG (MSG) = COMOS.DISTR (PAR62, PARG3, 2) 

LET ORIG = RRRPOINT (NETTBL (1, ORTK) ) 

LET MSG.TYPE (MSG) = 0 

LET MSG. TEXT (MSG) =0 

LET DEST.CODE (MSG) =0 

LET MYSET » FMTANK.LIST (ORIG) 

LET MSG.NO(MSG) = NXT.MSG.NO (MYSET) 

ROO 1 TO NXT.MSG.NO(MYSET) 

FOR EVERY RT.CONFIG IN RAD.LIST(MYSET), O86 
IF OWN.NET (OWN. SUBSCRIBER (RT.CONFIG)) EQ FMNET LET ORT. TEMP=RT.CONFIG 
ALRAYS 

LOOP 

FOR EVERY RT.CONFIG IN RAD.LIST (FMTANK.LIST (RODRESSEE (MSG))), 00 
IF OWN.NET (OWN. SUBSCRIBER (RT. CONFIG)}) EQ FMNET LET OAT. TEMP=RT.CONFIG 
ALWAYS 

LOOP 


IF COM.PRINT GT 15 
PRINT 1 LINE WITH TIME.V THUS 
ENTERED MESSAGE GENERATGR AT TIME. V @ moses, serene 
PRINT 1 ODGUBLE LINE WITH MSG.NO (MSG), MSG.TYPE (MSG), NUM.NET (FPMNET), 
TK. ID(QRIG), AND TK. IO(CACORESSEE (MSG)) AS FOLLOWS 
MSG.NO socemm OF TYPE ex ON NET x00 FROM TANK xo) = =60TO TANK xxx 
+++ GENERATED 9+ 
ALWAYS 
IF COM.PRINT GT 25 
PRINT 1 LINE WITH DEST.COQOE (MSG), LENGTH.MSG (MSG), ANO LST.SENO. TIME (MSG) 
THUS 
eceee DEST.CODE «xx MSG.LENGTH wooecoee KILL. TIME serene, sen 
PRINT 1 LINE WITH MSG, FMNET, GRIG, ANO ADOCRESSEE (MSG) AS FOLLOWS 


32 














ws-2- MSGsasoooaaw «=F MNE Taco §=«8RIGINATGRaxnmcceex ADDRESSEE = cvenevesererex 
PRINT 1 LINE RITH GRT.TEMP AND ORT. TEMP AS FOLLOWS 
-<---- TRANSMI] TTER/ CALLA T = serene see ne v0 00 RECE I VER/RECRT = 0e0e severe 0 3000 
ALWAYS 
SKIP 1 LINE 
SCHEDULE A COMMG.ATTEMPT (ORIG, MSG) NOW 
*“LOOP1 ° 
LET NUMBNET= (COM10.0I1STR(PRRO3,N.ETHER, 8} - 1) 
LET FMNET#F.ETHER 
FOR I = 1 TO NUMBNET, OG 
LET FMNET = S.ETHER (FMNET) 
LOOP 
SCHEDULE A MSG.GEN(FMNET) IN COMO1.DI1STR(PARSO,PARS!.!) UNITS 
RETURN 
END 
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